avoid very narrow initial truncation distributions (#454)

epiforecasts · Sep 15, 2023 · c22a6d5 · c22a6d5
1 parent 05512ca
commit c22a6d5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/estimate_truncation.R b/R/estimate_truncation.R
@@ -237,7 +237,7 @@ estimate_truncation <- function(obs, max_truncation, trunc_max = 10,
   init_fn <- function() {
     data <- list(
       delay_mean = array(rnorm(1, 0, 1)),
-      delay_sd = array(abs(rnorm(1, 0, 1))),
+      delay_sd = array(abs(rnorm(1, 0, 1))) + 1,
       phi = abs(rnorm(1, 0, 1)),
       sigma = abs(rnorm(1, 0, 1))
     )