R/quantInv.R

Defines functions quantInv

Documented in quantInv

#' quantInv primitive

quantInv <- function(distr, value)
{
    if(value == 1)
    {
        1 - ((length(distr[distr == 1]) - 1) / (length(distr) -1 ))
    }
    else if(value <= 0 | value > 1)
        stop("'value' outside accepted range (0,1]")
    else ecdf(distr)(value)
}
prestevez/crimeineq documentation built on May 29, 2019, 7:39 a.m.