R/qgammaAlt.R

In EnvStats: Package for Environmental Statistics, Including US EPA Guidance

qgammaAlt <-
function (p, mean, cv = 1, lower.tail = TRUE, log.p = FALSE) 
{
    shape <- cv^-2
    scale <- mean/shape
    stats::qgamma(p = p, shape = shape, scale = scale, lower.tail = lower.tail, 
        log.p = log.p)
}