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

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

Author: psolymos
Date: 2009-03-14 06:53:52 +0100 (Sat, 14 Mar 2009)
New Revision: 742

Modified:
   pkg/vegan/R/oecosimu.R
Log:
oecosimu gives warning if burnin and thin is misspecified when method is 
permat (sequential algorithms only)


Modified: pkg/vegan/R/oecosimu.R
===================================================================
--- pkg/vegan/R/oecosimu.R	2009-03-13 07:09:37 UTC (rev 741)
+++ pkg/vegan/R/oecosimu.R	2009-03-14 05:53:52 UTC (rev 742)
@@ -13,6 +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")
+        }
     } else quant <- FALSE
 
     ## conditional on quant value