diff --git a/R/estimate_truncation.R b/R/estimate_truncation.R
index 1bf7ef49e..5ff59fb03 100644
--- a/R/estimate_truncation.R
+++ b/R/estimate_truncation.R
@@ -284,7 +284,7 @@ estimate_truncation <- function(obs, max_truncation, trunc_max = 10,
   params_sd <- unname(round(
     rstan::summary(fit, pars = "delay_params")$summary[, 3], 3
   ))
-  parameters <- lapply(seq_along(params_mean), function (id) {
+  parameters <- purrr::map(seq_along(params_mean), function(id) {
     Normal(params_mean[id], params_sd[id])
   })
   names(parameters) <- natural_params(truncation[[1]]$distribution)