seirmod2 | R Documentation |
Gradient-function for the forced SEIR model
seirmod2(t, y, parameters)
t |
Implicit argument for time |
y |
A vector with initial values for the states |
parameters |
A vector with parameter values for the SIR system |
A list of gradients
require(deSolve) times = seq(0, 10, by=1/120) paras = c(mu = 1/50, N = 1, beta0 = 1000, beta1 = 0.2, sigma = 365/8, gamma = 365/5) start = c(S=0.06, E=0, I=0.001, R = 0.939) out=ode(start, times, seirmod2, paras)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.