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

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

Author: jarioksa
Date: 2010-09-17 15:06:23 +0200 (Fri, 17 Sep 2010)
New Revision: 1310

Modified:
   pkg/vegan/R/ordiR2step.R
Log:
clean-up updated formulae

Modified: pkg/vegan/R/ordiR2step.R
===================================================================
--- pkg/vegan/R/ordiR2step.R	2010-09-17 12:38:34 UTC (rev 1309)
+++ pkg/vegan/R/ordiR2step.R	2010-09-17 13:06:23 UTC (rev 1310)
@@ -81,7 +81,7 @@
             }
             if (tst[,"Pr(>F)"][2] > Pin)
                 break
-            fla <- paste("~  . +", adds[best])
+            fla <- paste("~  .", adds[best])
             object <- update(object, fla)
             R2.previous <- RsquareAdj(object)$adj.r.squared
             anotab <- rbind(anotab, cbind("R2.adj" = R2.previous, tst[2,]))
@@ -90,7 +90,6 @@
         }
     }
     if (NROW(anotab) > 0) {
-        rownames(anotab) <- paste("+", rownames(anotab))
         anotab <- rbind(anotab, "<All variables>" = c(R2.all, rep(NA, 5)))
         class(anotab) <- c("anova", class(anotab))
         object$anova <- anotab