R/amplify.R

amplify <-
function (gamma, lambda) 
    {
        stopifnot(length(gamma) == 1)
        stopifnot(gamma > 1)
        stopifnot(min(lambda) > gamma)
        delta<-(gamma * lambda - 1)/(lambda - gamma)
        names(delta)<-lambda
        delta
}

Try the sensitivitymv package in your browser

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

sensitivitymv documentation built on May 2, 2019, 2:06 a.m.