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