R/examples/n_sec_cases.R

n.sec.cases(R_low=1.5)
n.sec.cases(n=10, R_low=1.5, R_high=2)

set.seed(1)
hist(n.sec.cases(n=1000, R_low=1.5, R_high=3), main='', xlab='R_0')
abline(v=1.5, lty=2, lwd=2, col='red')
abline(v=3, lty=2, lwd=2, col='red')
gilesjohnr/genpatch documentation built on May 12, 2019, 10:50 a.m.