avoid very narrow initial truncation distributions (#454)

epiforecasts · Sep 15, 2023 · 266c088 · 266c088
1 parent 20975ba
commit 266c088
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))
     )