# NOT RUN {
## load data
data(fakeOutbreak)
attach(fakeOutbreak)
## individual R
barplot(table(get.R(res)), main="Individual effective reproduction numbers")
## R(t)
get.Rt(res)
## incidence
get.incid(res)
detach(fakeOutbreak)
# }
Run the code above in your browser using DataLab