Susceptible-Infected Model with Simple Demographics
SI_demographics_ode(t, x, params)
Arguments
- t
The timestep over which to calculate derivatives
- x
A numeric vector of compartment populations.
- params
A named vector of parameter values.
Value
A vector of derivatives
Examples
##Model Input
S_0 <- 999
I_0 <- 1
beta <- 3
mu <- 1/81
parameters <- c(beta = beta, mu = mu)
inits <- c(S = S_0, I = I_0)
SI_demographics_ode(1, inits, parameters)
#> [[1]]
#> S S
#> -2.984654 2.984654
#>