knitr::opts_chunk$set(echo = TRUE)
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")
f <- fitted(est)
sim <- simulate(est, nsim = 1000)
sim
summary(sim)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.