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

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

Author: psolymos
Date: 2009-03-18 04:22:48 +0100 (Wed, 18 Mar 2009)
New Revision: 749

Modified:
   pkg/vegan/R/oecosimu.R
Log:
method is solely permat if permatfull is used


Modified: pkg/vegan/R/oecosimu.R
===================================================================
--- pkg/vegan/R/oecosimu.R	2009-03-17 06:12:56 UTC (rev 748)
+++ pkg/vegan/R/oecosimu.R	2009-03-18 03:22:48 UTC (rev 749)
@@ -122,7 +122,7 @@
     if (any(is.na(z)))
         p[is.na(z)] <- NA
     ## collapse method with control$method
-    if (method == "permat")
+    if (method == "permat" && control$ptype == "swap")
         method <- paste("permat", control$method, sep=".")
 
     if (is.null(names(indstat)))