# get example output form estimate_infections
out <- readRDS(system.file(
package = "EpiNow2", "extdata", "example_estimate_infections.rds"
))
# plot infections
plots <- report_plots(
summarised_estimates = out$summarised,
reported = out$observations
)
plots
Run the code above in your browser using DataLab