# NOT RUN {
## Create a SEIR model object.
model <- SEIR(u0 = data.frame(S = 99, E = 0, I = 1, R = 0),
tspan = 1:100,
beta = 0.16,
epsilon = 0.25,
gamma = 0.077)
## Run the SEIR model and plot the result.
result <- run(model, threads = 1, seed = 3)
plot(result)
# }
Run the code above in your browser using DataLab