Plot time, reported cases, incidence curve with credible interval, and implied case curve.
# S3 method for incidence_spline_model
plot(x, ...)
An "incidence_spline_model" output from fit_incidence
.
Other parameters that can be included:
`times`: an optional vector of time indices.
`plot_Chat`: a logical for whether Chat should be plotted.
`plot_reported`: a logical for whether reported cases should be plotted.
`plot_CI`: a logical for whether CI should be plotted.
# NOT RUN {
indiana_model <- fit_incidence(
reported = spanish_flu$Indiana,
delay_dist = spanish_flu_delay_dist$proportion)
plot(indiana_model, times = spanish_flu$Date)
# }
Run the code above in your browser using DataLab