SIR model with demographic stochasticity approximated using the tau-leap method and assuming Poisson distributions.
SIRTauLeap(pars, init, end.time)
end time to be simulated.
This is the R version of program 6.5 from page 204 of "Modeling Infectious Disease in humans and animals" by Keeling & Rohani.
list. The first three elements are the vectors
*$time, containing the
end.time arguments of the function. The fourth element
*$results is a
data.frame with up to as many rows as time steps determined by the parameters
end.time. The first column contains the time steps. The second, third and fourth columns contain the number of susceptibles, infectious and recovered.
Keeling, Matt J., and Pejman Rohani. Modeling infectious diseases in humans and animals. Princeton University Press, 2008. Modeling Infectious Diseases in Humans and Animals
1 2 3 4 5 6 7 8 9
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.