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

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

Author: psolymos
Date: 2008-11-20 05:31:51 +0100 (Thu, 20 Nov 2008)
New Revision: 577

Modified:
   pkg/vegan/R/adipart.R
Log:
swap method was set due to efficiency


Modified: pkg/vegan/R/adipart.R
===================================================================
--- pkg/vegan/R/adipart.R	2008-11-19 17:39:09 UTC (rev 576)
+++ pkg/vegan/R/adipart.R	2008-11-20 04:31:51 UTC (rev 577)
@@ -220,9 +220,9 @@
                     perm.i <- permatfull(matr, times=1, ...)$perm[[1]]
                 if (permtype == "swap") {
                     if (i == 1) {
-                        perm.i <- permatswap(matr, times=1, burnin=burnin, ...)$perm[[1]]
+                        perm.i <- permatswap(matr, times=1, burnin=burnin, method="swap", ...)$perm[[1]]
                         } else {
-                        perm.i <- permatswap(perm.i, times=1, burnin=0, ...)$perm[[1]]
+                        perm.i <- permatswap(perm.i, times=1, burnin=0, method="swap", ...)$perm[[1]]
                 }}}
         if (method == "trad")
             adp.perm <- adpTrad(perm.i[id,], f[id,], index, weights, serr=FALSE)