## Create a standard 'SIR' model.
u0 <- data.frame(
S = rep(99, 100),
I = rep(1, 100),
R = rep(0, 100)
)
model <- SIR(
u0 = u0,
tspan = 1:10,
beta = 0.16,
gamma = 0.077
)
## Get the number of replicates (default is 1 for standard
## models).
n_replicates(model)
Run the code above in your browser using DataLab