Nothing
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 iTOS package in your browser
Any scripts or data that you put into this service are public.
