| hit | R Documentation | 
Calculates Basic Herd Immunity Threshold Based on the Basic Reproduction Number
hit(R0)
R0 | 
 a positive double, the basic reproduction number  | 
# Calculate the Herd Immunity Threshold for R0 Between 1 and 9
o <- vapply(seq(1,9, .1), hit, FUN.VALUE = numeric(1))
plot(seq(1,9, .1), o, main = "HIT", type = "l",
    ylab = "Prop with Immunity", xlab = expression(R[0]))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.