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

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

Author: jarioksa
Date: 2010-05-27 17:54:54 +0200 (Thu, 27 May 2010)
New Revision: 1199

Modified:
   pkg/vegan/R/mantel.R
Log:
r1195 also mantel: no patronizing adjustement of no. of permutations to correct bad usage

Modified: pkg/vegan/R/mantel.R
===================================================================
--- pkg/vegan/R/mantel.R	2010-05-27 12:51:24 UTC (rev 1198)
+++ pkg/vegan/R/mantel.R	2010-05-27 15:54:54 UTC (rev 1199)
@@ -8,8 +8,6 @@
     statistic <- as.numeric(tmp$estimate)
     variant <- tmp$method
     if (permutations) {
-        if (permutations %% 100 == 0)
-            permutations <- permutations - 1
         N <- attributes(xdis)$Size
         perm <- rep(0, permutations)
         for (i in 1:permutations) {