From 266c0885c7f94daeff0b483470bdbf9abcb6b32a Mon Sep 17 00:00:00 2001 From: Sebastian Funk Date: Fri, 15 Sep 2023 13:13:32 +0100 Subject: [PATCH] avoid very narrow initial truncation distributions (#454) --- R/estimate_truncation.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/estimate_truncation.R b/R/estimate_truncation.R index a64030771..65f1a40dd 100644 --- 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)) )