model_sird <- ModelSIRD(
name = "COVID-19",
prevalence = 0.01,
transmission_rate = 0.9,
recovery_rate = 0.1,
death_rate = 0.01
)
# Adding a small world population
agents_smallworld(
model_sird,
n = 1000,
k = 5,
d = FALSE,
p = .01
)
# Running and printing
run(model_sird, ndays = 100, seed = 1912)
model_sird
# Plotting
plot(model_sird)
Run the code above in your browser using DataLab