R/simpPol.R

"simpPol" <-
function (sumT, par, lambda, lambdac) 
{
    for (i in 1:length(par)) {
        sumT <- sumT + (par[i] * ((lambda - lambdac)/100)^i)
    }
    sumT
}

Try the TIMP package in your browser

Any scripts or data that you put into this service are public.

TIMP documentation built on May 2, 2019, 5:55 p.m.