# NOT RUN {
## Note the following examples use an MCMC routine
## to estimate the serial interval distribution from data,
## so they may take a few minutes to run
## load data on pandemic flu in a New York school in 2009
data("flu_2009_NYC_school")
## estimate the reproduction number (method "si_from_data")
res <- estimate_R(flu_2009_NYC_school$incidence, method="si_from_data",
si_data = flu_2009_NYC_school$si_data,
config = make_config(list(
t_start = seq(2, 8),
t_end = seq(8, 14),
si_parametric_distr = "G",
mcmc_control = make_mcmc_control(list(burnin = 1000,
thin = 10, seed = 1)),
n1 = 1000, n2 = 50))
)
plot(res)
## the second plot produced shows, at each each day,
## the estimate of the reproduction number
## over the 7-day window finishing on that day.
# }
Run the code above in your browser using DataLab