From f059bc1188d8e47f5519029d16f642a74dbf8d12 Mon Sep 17 00:00:00 2001 From: Chris Jones Date: Mon, 29 Jan 2024 15:01:05 -0500 Subject: [PATCH] fix cal error --- R/calibrate.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/calibrate.R b/R/calibrate.R index 64e3338a..ee6cf2ff 100644 --- 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)