## Create an SIS model object.
model <- SIS(u0 = data.frame(S = 99, I = 1),
tspan = 1:100,
beta = 0.16,
gamma = 0.077)
## Run the SIS model and plot the result.
set.seed(22)
result <- run(model)
plot(result)
Run the code above in your browser using DataLab