u0<- | R Documentation |
Update the initial compartment state u0 in each node
u0(model) <- value
## S4 replacement method for signature 'SimInf_model'
u0(model) <- value
model |
The model to update the initial compartment state
|
value |
A |
## Create an SIR model object.
model <- SIR(u0 = data.frame(S = 99, I = 1, R = 0),
tspan = 1:100,
beta = 0.16,
gamma = 0.077)
## Run the SIR model and plot the result.
set.seed(22)
result <- run(model)
plot(result)
## Update u0 and run the model again
u0(model) <- data.frame(S = 990, I = 10, R = 0)
result <- run(model)
plot(result)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.