kmk: mck-Mc Kendrick SIR system

Description Usage Value Author(s) See Also Examples

View source: R/kmk.R

Description

a variant of sys to use in evrunge

Usage

1
kmk()

Value

see sys Three values for three equations are returned

Author(s)

J.S. Pierre

See Also

sys, evrunge

Examples

1
2
3
4
5
6
7
8
## The function is currently defined as
function () 
{
    f1 <- function(t, y, param) -param[1] * y[1] * y[2]
    f2 <- function(t, y, param) param[1] * y[1] * y[2] - param[2] * y[2]
    f3 <- function(t, y, param) param[2] * y[2]
    c(f1, f2, f3)
  }

nlsrk documentation built on June 24, 2017, 1:02 a.m.