[Vegan-commits] r2385 - pkg/vegan/R

[noreply at r-forge.r-project.org]

Author: jarioksa
Date: 2013-01-25 11:53:03 +0100 (Fri, 25 Jan 2013)
New Revision: 2385

Modified:
   pkg/vegan/R/print.protest.R
Log:
protest prints also m12 (which was returned but not printed)

Modified: pkg/vegan/R/print.protest.R
===================================================================
--- pkg/vegan/R/print.protest.R	2013-01-22 17:55:06 UTC (rev 2384)
+++ pkg/vegan/R/print.protest.R	2013-01-25 10:53:03 UTC (rev 2385)
@@ -3,7 +3,9 @@
 {
   cat("\nCall:\n")
   cat(deparse(x$call), "\n\n")
-  cat("Correlation in a symmetric Procrustes rotation:  ")
+  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")