R/plnorm3.R

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

plnorm3 <-
function (q, meanlog = 0, sdlog = 1, threshold = 0) 
{
    p <- plnorm(q = q - threshold, meanlog = meanlog, sdlog = sdlog)
    if (!is.null(Names <- names(q))) 
        names(p) <- rep(Names, length = length(p))
    p
}