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.