Quantitative assessment of zoonotic disease risk across animal, human, environmental, and transmission interfaces.
library(ZooRisk)
risk <- zoonotic_risk(
prevalence = 0.20,
exposure = 0.35,
transmission = 0.10,
susceptibility = 0.60
)
risk
summary(risk)
plot_risk(risk)