powered by
Susceptible-Infected-Susceptible Model with Simple Demographics
SIS_demographics_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 <- 999 I_0 <- 1 beta <- 3 chi <- 2 mu <- 1/81 dt <- 1 parameters <- c(beta = beta, mu = mu) inits <- c(S = S_0, I = I_0) SIS_demographics_ode(1, inits, parameters)
Run the code above in your browser using DataLab