# Create and run a model
model <- ModelSIRCONN(
name = "A Virus",
n = 10000,
prevalence = .01,
contact_rate = 4.0,
transmission_rate = .5,
recovery_rate = 1.0 / 7.0
)
verbose_off(model)
run(model, ndays = 50, seed = 1912)
# Draw mermaid diagrams from model data
draw_mermaid_from_data(
states = get_states(model),
transition_probs = c(get_transition_probability(model))
)
Run the code above in your browser using DataLab