fix space for lintr

epiforecasts · Jan 12, 2024 · 22eef3b · 22eef3b
1 parent 8fc0f77
commit 22eef3b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)