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)) )