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

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

weightedRank documentation built on Aug. 22, 2025, 1:08 a.m.