set max when constructing truncation

epiforecasts · May 2, 2024 · 21ffdc7 · 21ffdc7
1 parent c5763e5
commit 21ffdc7
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/estimate_truncation.R b/R/estimate_truncation.R
@@ -279,6 +279,7 @@ estimate_truncation <- function(data, max_truncation, trunc_max = 10,
     Normal(params_mean[id], params_sd[id])
   })
   names(parameters) <- natural_params(get_distribution(truncation))
+  parameters$max <- max(truncation)
   out$dist <- new_dist_spec(
     params = parameters,
     distribution = get_distribution(truncation)