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')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.