Create a faceted `ggplot2` panel showing observed and fitted values for the selected epidemic models.
Usage
plot_fit(
object,
point_size = 1.2,
line_size = 1,
models = c("Exponential", "Monomolecular", "Logistic", "Gompertz")
)Examples
epi <- sim_logistic(N = 30, y0 = 0.01, dt = 5, r = 0.3, alpha = 0.2, n = 4)
fit <- fit_lin(time = epi$time, y = epi$random_y)
plot_fit(fit)
