Susceptible-Exposed-Infected Model with Simple Demographics
SEI_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 <- 989
E_0 <- 10
I_0 <- 1
beta <- 3
gamma <- 1/2
mu <- 1/81
parameters <- c(beta = beta, gamma = gamma, mu = mu)
inits <- c(S = S_0, E = E_0, I = I_0)
SEI_demographics_ode(1, inits, parameters)
#> [[1]]
#> S S E
#> -2.831198 -2.156457 4.987654
#>