## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")
library(ZooRisk)

## -----------------------------------------------------------------------------
risk <- zoonotic_risk(.20, .35, .10, .60)
risk
summary(risk)

## -----------------------------------------------------------------------------
sim <- risk_simulate(
  prevalence = c(.10, .30),
  exposure = c(.20, .50),
  transmission = c(.02, .10),
  susceptibility = c(.40, .80),
  n_sim = 1000,
  seed = 42
)
monte_carlo_risk(sim)

## -----------------------------------------------------------------------------
net <- transmission_network(
  from = c("cattle", "cattle", "dog"),
  to = c("dog", "human", "human")
)
network_risk(net)