fix cal error

ncsu-landscape-dynamics · Jan 29, 2024 · f059bc1 · f059bc1
1 parent 05f36f7
commit f059bc1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/calibrate.R b/R/calibrate.R
@@ -321,7 +321,7 @@ calibrate <- function(infected_years_file,
              network_min_distance,
              network_max_distance) {
 
-      config$random_seed <- sample(1:999999999999, 1, replace = FALSE)
+      config$random_seed <- as.integer(sample.int(1e9, 1, replace = FALSE))
       set.seed(config$random_seed[[1]])
       random_seeds <- create_random_seeds(1)
       config <- host_pool_setup(config)