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