[Vegan-commits] r288 - pkg/R

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

Author: jarioksa
Date: 2008-03-26 10:02:06 +0100 (Wed, 26 Mar 2008)
New Revision: 288

Modified:
   pkg/R/anova.cca.R
Log:
'perm.max' adjusted for removing one iterations from the 'step'

Modified: pkg/R/anova.cca.R
===================================================================
--- pkg/R/anova.cca.R	2008-03-25 16:34:33 UTC (rev 287)
+++ pkg/R/anova.cca.R	2008-03-26 09:02:06 UTC (rev 288)
@@ -7,6 +7,8 @@
     if (is.null(object$CCA))
         stop("Nothing to analyse: no constrained component")
     perm.max <- max(step-1, perm.max)
+    if (perm.max %% step == 0)
+        perm.max <- perm.max - 1
     if (!is.null(by)) {
         by <- match.arg(by, c("axis", "terms", "margin"))
         if (by == "axis") 
@@ -59,4 +61,3 @@
     structure(table, heading = c(head, mod), Random.seed = seed, 
               class = c("anova.cca", "anova", "data.frame"))
 }
-