R/print.summary.cpf.R

Defines functions print.summary.cpf

Documented in print.summary.cpf

print.summary.cpf <- function(x, ...) {
    if (!inherits(x, "summary.cpf"))
        stop("'x' must be of class 'summary.cpf'")
    cat("Call: "); dput(x$call); cat("\n")
    for (i in seq_len(length(x$est))) {
        cat("\t", names(x$est[i]), "\n")
        ind <- floor(quantile(1:nrow(x$est[[i]]), prob = c(0, 0.25, 0.5, 0.75, 1)))
        print(x$est[[i]][ind, ], rownames = FALSE)
        cat("\n")
    }
    invisible(x)
}

Try the Cprob package in your browser

Any scripts or data that you put into this service are public.

Cprob documentation built on May 23, 2018, 1:05 a.m.