R/print.CCR.quant.R

In prestevez/crimeineq:

#' Print method for CCR.quant objects
#' @export

print.CCR.quant <- function(CCR.quant.object)
{
    msg <- "CCR ("
    msg <- paste0(msg, CCR.quant.object$q*100, "% events in ")
    msg <- paste0(msg, names(CCR.quant.object$estimate), " places)\n")

    cat(msg)
    print(unname(CCR.quant.object$estimate))
}