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

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

Author: jarioksa
Date: 2012-11-25 19:29:25 +0100 (Sun, 25 Nov 2012)
New Revision: 2331

Modified:
   pkg/vegan/R/ordiR2step.R
Log:
RsquareAdj knows partial RDA since Jan 2012 (r2053): ordiR2step follows

Modified: pkg/vegan/R/ordiR2step.R
===================================================================
--- pkg/vegan/R/ordiR2step.R	2012-11-19 15:23:07 UTC (rev 2330)
+++ pkg/vegan/R/ordiR2step.R	2012-11-25 18:29:25 UTC (rev 2331)
@@ -28,12 +28,8 @@
     else
         R2.all <- list(adj.r.squared = NA)
     ## Check that the full model can be evaluated
-    if (is.na(R2.all$adj.r.squared) && R2scope) {
-        if (R2.all$r.squared > 0.999)
-            stop("the upper scope cannot be fitted (too many terms?)")
-        else
-            stop("upper scope cannot be fitted (Condition() in scope?)")
-    }
+    if (is.na(R2.all$adj.r.squared) && R2scope) 
+        stop("the upper scope cannot be fitted (too many terms?)")
     R2.all <- R2.all$adj.r.squared
     ## Collect data to anotab returned as the 'anova' object
     anotab <-  list()