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 dstat package in your browser

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

dstat documentation built on May 2, 2019, 9:27 a.m.