# NOT RUN {
## Note the following example uses an MCMC routine
## to estimate the serial interval distribution from data,
## so may take a few minutes to run
## load data
data("MockRotavirus")
## estimate the reproduction number (method "si_from_data")
res <- estimate_R(MockRotavirus$incidence,
method = "si_from_data",
si_data = MockRotavirus$si_data,
config = make_config(list(
si_parametric_distr = "G",
mcmc_control = make_mcmc_control(list(burnin = 3000, thin = 10)),
n1 = 500, 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