## Demo file
library(R0)
# Generating an epidemic with given parameters
mGT <- generation.time("gamma", c(3,1.5))
mEpid <- sim.epid(epid.nb=1, GT=mGT, epid.length=30, family="poisson", R0=1.67, peak.value=500)
mEpid <- mEpid[,1]
# Running estimations
est <- estimate.R(epid=mEpid, GT=mGT, methods=c("EG","ML","TD"))
# Model estimates and goodness of fit can be plotted
plot(est)
plotfit(est)
# Sensitivity analysis for the EG estimation; influence of begin/end dates
s.a <- sensitivity.analysis(res=est$estimates$EG, begin=1:15, end=16:30, sa.type="time")
# This sensitivity analysis can be plotted
plot(s.a)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.