text: library(igraph)
  start_time <- Sys.time()
  sample_smallworld(1,100000,200,0.5)
  end_time <- Sys.time()
  end_time - start_time
  
  start_time <- Sys.time()
  sample_smallworld(1,100000,200,0.5)
  end_time <- Sys.time()
  end_time - start_time
  
  start_time <- Sys.time()
  sample_smallworld(1,100000,200,0.5)
  end_time <- Sys.time()
  end_time - start_time
  
  start_time <- Sys.time()
  sample_smallworld(1,100000,200,0.5)
  end_time <- Sys.time()
  end_time - start_time
  
  start_time <- Sys.time()
  sample_smallworld(1,100000,200,0.5)
  end_time <- Sys.time()
  end_time - start_time
  
  library(igraph)
  start_time <- Sys.time()
  sample_smallworld(1,1000000,200,0.5)
  end_time <- Sys.time()
  end_time - start_time
  
  start_time <- Sys.time()
  sample_smallworld(1,1000000,200,0.5)
  end_time <- Sys.time()
  end_time - start_time
  
  start_time <- Sys.time()
  sample_smallworld(1,1000000,200,0.5)
  end_time <- Sys.time()
  end_time - start_time
  
  start_time <- Sys.time()
  sample_smallworld(1,1000000,200,0.5)
  end_time <- Sys.time()
  end_time - start_time
  
  start_time <- Sys.time()
  sample_smallworld(1,1000000,200,0.5)
  end_time <- Sys.time()
  end_time - start_time