R/print.protest.R

In pattakosn/Rworkshop: Community Ecology Package

"print.protest" <-
  function(x, digits = max(3, getOption("digits") - 3), ...)
{
  cat("\nCall:\n")
  cat(deparse(x$call), "\n\n")
  cat("Procrustes Sum of Squares (m12 squared):        ")
  cat(formatC(x$ss, digits=digits), "\n")
  cat("Correlation in a symmetric Procrustes rotation: ")
  cat(formatC(x$t0, digits = digits), "\n")
  cat("Significance:  ")
  cat(format.pval(x$signif),"\n")
  cat("Based on", x$permutations, "permutations")
  if (!is.null(x$strata)) 
    cat(", stratified within", x$strata)
  cat(".\n\n")
  invisible(x)
}