From 8799aeef86c5dec8ee811bb2a89867a40dd63bc5 Mon Sep 17 00:00:00 2001 From: CarmenTamayo Date: Mon, 8 Jan 2024 14:43:02 +0000 Subject: [PATCH] Creating epidist for manually supplied parameters so that `epiparameter` functions can be used uniformly in subsequent steps --- .../templates/transmissibility/skeleton/skeleton.Rmd | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/inst/rmarkdown/templates/transmissibility/skeleton/skeleton.Rmd b/inst/rmarkdown/templates/transmissibility/skeleton/skeleton.Rmd index f8f04e6e..dce4e9b4 100644 --- a/inst/rmarkdown/templates/transmissibility/skeleton/skeleton.Rmd +++ b/inst/rmarkdown/templates/transmissibility/skeleton/skeleton.Rmd @@ -393,9 +393,13 @@ si_mean <- params$si_mean si_sd <- params$si_sd si_dist <- params$si_dist si_cv <- si_sd / si_mean -si_params <- epiparameter::convert_summary_stats_to_params( - distribution = params$si_dist, mean = si_mean, sd = si_sd -) +si_epidist <- epidist( + disease = params$disease_name, + epi_dist = "serial_interval", + prob_distribution = params$si_dist, + summary_stats = create_epidist_summary_stats(mean = params$si_mean, + sd = params$si_sd), + auto_calc_params = TRUE) ``` ```{r}