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

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

Author: psolymos
Date: 2009-03-14 17:26:38 +0100 (Sat, 14 Mar 2009)
New Revision: 743

Modified:
   pkg/vegan/R/oecosimu.R
Log:
undo changes in oecusimu because it might troubles in check


Modified: pkg/vegan/R/oecosimu.R
===================================================================
--- pkg/vegan/R/oecosimu.R	2009-03-14 05:53:52 UTC (rev 742)
+++ pkg/vegan/R/oecosimu.R	2009-03-14 16:26:38 UTC (rev 743)
@@ -13,12 +13,12 @@
         if (missing(control))
             control <- permat.control()
         pfull <- control$ptype == "full"
-        if (control$method %in% c("swap", "tswap", "abuswap")) {
-            if (thin != control$thin)
-                warning("'thin' and 'control$thin' not equal")
-            if (burnin != control$burnin)
-                warning("'burnin' and 'control$burnin' not equal")
-        }
+#        if (control$method %in% c("swap", "tswap", "abuswap")) {
+#            if (thin != control$thin)
+#                warning("'thin' and 'control$thin' not equal")
+#            if (burnin != control$burnin)
+#                warning("'burnin' and 'control$burnin' not equal")
+#        }
     } else quant <- FALSE
 
     ## conditional on quant value