# calculate prevalence from binary vectors:
(x <- rep(c(0, 1), each = 5))
(y <- c(rep(0, 3), rep(1, 7)))
(z <- c(rep(0, 7), rep(1, 3)))
prevalence(x)
prevalence(y)
prevalence(z)
(w <- c(rep("yes", 3), rep("nope", 7)))
prevalence(w, event = "yes")
# calculate prevalence from a model object:
data(rotif.mods)
prevalence(mod = rotif.mods$models[[1]])
Run the code above in your browser using DataLab