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

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

Author: jarioksa
Date: 2010-11-10 09:16:48 +0100 (Wed, 10 Nov 2010)
New Revision: 1357

Modified:
   pkg/vegan/R/print.summary.prc.R
Log:
fix from Cajo

Modified: pkg/vegan/R/print.summary.prc.R
===================================================================
--- pkg/vegan/R/print.summary.prc.R	2010-11-09 15:44:31 UTC (rev 1356)
+++ pkg/vegan/R/print.summary.prc.R	2010-11-10 08:16:48 UTC (rev 1357)
@@ -6,7 +6,7 @@
     cat("Species scores:\n")
     print(x$sp, digits=x$digits, ...)
     cat("\nCoefficients for",
-        paste(x$names[1], "+", paste(x$names, collapse=":")),
+        paste(x$names[2], "+", paste(x$names, collapse=":")),
         "interaction\n")
     cat(paste("which are contrasts to", x$names[2], x$corner, "\n"))
     cat(paste(c("rows are",", columns are"), x$names[2:1], collapse=""))