R/print.summary.symcoca.R

Defines functions `print.summary.symcoca`

`print.summary.symcoca` <- function(x, digits = max(3, getOption("digits") - 3), ...) {
    cat("\nSymmetric Co-Correspondence Analysis\n\n")
    writeLines(strwrap(pasteCall(x$call)))
    cat("\nInertia:\n")
    printCoefmat(x$inertia, digits = digits, na.print = "")
    cat("\nEigenvalues:\n")
    print(format(eigenvals(x), digits = digits), ..., print.gap = 2,
          quote = FALSE)
    invisible(x)
}

Try the cocorresp package in your browser

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

cocorresp documentation built on June 22, 2024, 11 a.m.