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

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

Author: jarioksa
Date: 2009-09-01 17:49:30 +0200 (Tue, 01 Sep 2009)
New Revision: 974

Modified:
   pkg/vegan/R/oecosimu.R
Log:
oecosimu had lost 'quasiswap' (and aesthetics within code)

Modified: pkg/vegan/R/oecosimu.R
===================================================================
--- pkg/vegan/R/oecosimu.R	2009-09-01 13:14:16 UTC (rev 973)
+++ pkg/vegan/R/oecosimu.R	2009-09-01 15:49:30 UTC (rev 974)
@@ -6,7 +6,7 @@
     nestfun <- match.fun(nestfun)
     if (!is.function(method)) {
         method <- match.arg(method, c("r00", "r0", "r1", "r2", "c0",
-                                  "swap", "tswap", "backtrack",
+                                  "swap", "tswap", "backtrack", "quasiswap",
                                   "r2dtable"))   # "permat" method added
         if (method == "r2dtable") {
             nr <- rowSums(comm)
@@ -17,8 +17,7 @@
         permfun <- match.fun(method)
         method <- "custom"
     }
-    quant <- if (method %in% c("r2dtable", "custom"))
-        TRUE else FALSE
+    quant <- method %in% c("r2dtable", "custom")
 
     ind <- nestfun(comm, ...)
     if (is.list(ind))