R/print.summary.lorenz.R

Defines functions print.summary.lorenz

Documented in print.summary.lorenz

print.summary.lorenz <-
function(x, digits, ...)
{
    if (missing(digits))
        digits <- max(3L, getOption("digits") - 3L)
    cat("Lorenz curve summary\n\n")
    print(x[-1], digits = digits)
    cat("\n")
    invisible(x)
}
psolymos/opticut documentation built on April 29, 2018, 10:17 a.m.