powered by
Susceptible-Infected-Recovered Model
SIR_ode(t, x, params)
A vector of derivatives
The timestep over which to calculate derivatives
A numeric vector of compartment populations.
A named vector of parameter values.
##Model Input S_0 <- 989 I_0 <- 1 R_0 <- 0 beta <- 3 tau <- 2 parameters <- c(beta = beta, tau = tau) inits <- c(S = S_0, I = I_0, R_0 = R_0) SIR_ode(1, inits, parameters)
Run the code above in your browser using DataLab