R/print.symcoca.R

In gavinsimpson/cocorresp-old: Co-correspondence analysis methods

"print.symcoca" <-
function(x, digits = max(3, getOption("digits") - 3), ...)
  {
    cat("\nSymmetric Co-Correspondence Analysis\n\n")
    writeLines(strwrap(pasteCall(x$call)))
    cat("\nEigenvalues:\n")
    print(round(x$lambda, digits), ..., print.gap = 3)
    cat("\nInertia:\n")
    inert <- rbind(unlist(x$inertia$total),
                   unlist(x$inertia$residual))
    explained <- inert[1,] - inert[2,]
    inert <- rbind(inert[1, ], explained, inert[2, ])
    rownames(inert) <- c("Total:", "Explained:", "Residual:")
    colnames(inert) <- c(x$nam.dat$namY, x$nam.dat$namX)
    printCoefmat(inert, digits = digits, na.print = "")
    cat("\n")
    invisible(x)
  }