R/cumprop.R

Defines functions cumprop

Documented in cumprop

#' Cumulative relative frequency
#' @export

cumprop <- function(x, decreasing = TRUE)
{
    #if (is.unsorted(x)) x <- sort(x, decreasing = decreasing)
    x <- sort(x, decreasing = decreasing)
    result <- cumsum(x)/sum(x)

    return(result)
}
prestevez/crimeineq documentation built on May 29, 2019, 7:39 a.m.