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

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

Author: jarioksa
Date: 2010-08-29 08:54:25 +0200 (Sun, 29 Aug 2010)
New Revision: 1292

Modified:
   pkg/vegan/R/ordiR2step.R
Log:
ordiR2step ranks R2 of the current model or <none>

Modified: pkg/vegan/R/ordiR2step.R
===================================================================
--- pkg/vegan/R/ordiR2step.R	2010-08-27 17:23:34 UTC (rev 1291)
+++ pkg/vegan/R/ordiR2step.R	2010-08-29 06:54:25 UTC (rev 1292)
@@ -50,7 +50,8 @@
         best <- which.max(R2.adds)
         if (trace) {
             names(R2.adds) <- paste("+", names(R2.adds))
-            out <- sort(c("<All variables>" = R2.all, R2.adds), decreasing = TRUE)
+            out <- sort(c("<All variables>" = R2.all, "<none>" = R2.previous,
+                          R2.adds), decreasing = TRUE)
             out <- as.matrix(out)
             colnames(out) <- "R2.adjusted"
             print(out)