Updating distribution mean and sd objects for plotting

epiverse-trace · Feb 9, 2024 · 8368412 · 8368412
1 parent ee73e96
commit 8368412
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/inst/rmarkdown/templates/transmissibility/skeleton/skeleton.Rmd b/inst/rmarkdown/templates/transmissibility/skeleton/skeleton.Rmd
@@ -386,8 +386,8 @@ si_epidist <- epiparameter::epidist_db(
 
 si_params <- get_parameters(si_epidist)
 si_dist <- family(si_epidist)
-si_mean <- si_epidist$summary_stats$mean
-si_sd <- si_epidist$summary_stats$sd
+si_mean <- get_parameters(si_epidist)[1]
+si_sd <- get_parameters(si_epidist)[2]
 ```
 
 ```{r, eval = !params$use_epiparameter_database}