knitr::opts_chunk$set(echo = TRUE)

Before simulation: loading package and model fitting

library(BassSIR)
cases <- as_bass_data(n_covid19$Hubei, id = "Hubei")
est <- BassSIR::fit(cases, r_rec = 1/22.2, r_death = 1/22.3, type = "BassSIR")

Fitted

f <- fitted(est)

Simulation from the estimated model

sim <- simulate(est, nsim = 1000)
sim

Epidemic indices

summary(sim)


COVID-19-Modelling/BassSIR documentation built on April 20, 2020, 1:57 a.m.