R/print.crossval.R

Defines functions `print.crossval`

`print.crossval` <- function(x, digits = min(3, getOption("digits") - 3),
                             ...) {
    names(x$CVfit) <- paste("COCA", seq_len(x$n.axes), sep = "")
    cat("\nCross-validation for Predictive Co-Correspondence Analysis\n\n")
    writeLines(strwrap(pasteCall(x$call)))
    cat(sprintf("\nCross-validatory %%fit of %s to %s:\n\n", x$nam.dat$namY,
                x$nam.dat$namX))
    print(round(x$CVfit, digits), print.gap = 2)
    invisible(x)
}
gavinsimpson/cocorresp documentation built on Feb. 22, 2024, 2:40 a.m.