[Vegan-commits] r1907 - pkg/vegan/tests

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

Author: jarioksa
Date: 2011-09-28 17:36:44 +0200 (Wed, 28 Sep 2011)
New Revision: 1907

Modified:
   pkg/vegan/tests/oecosimu-tests.R
Log:
set.seed(4711) for each model in the loops so that differences in one model
are not carried over to the next ones. Do not update .Rout.save yet, but 
do this in stages to see where results change.


Modified: pkg/vegan/tests/oecosimu-tests.R
===================================================================
--- pkg/vegan/tests/oecosimu-tests.R	2011-09-28 13:13:37 UTC (rev 1906)
+++ pkg/vegan/tests/oecosimu-tests.R	2011-09-28 15:36:44 UTC (rev 1907)
@@ -102,6 +102,7 @@
 for(mar in margin) {
     for(what in shuffle) {
         cat("\n--> margin", mar, " shuffle", what, "<--\n")
+        set.seed(4711)
         m <- permatfull(x, fixedmar = mar, shuffle = what, mtype = "count", 
             times=1)$perm[[1]]
         margintest(m, gsum, rsum, csum, fill, rfrq, cfrq)
@@ -130,6 +131,7 @@
                 next
             cat("\n*** ", method, " ***\n")
             cat("--> margin", margin, " shuffle", what, "<--\n")
+            set.seed(4711)
             m <- permatswap(x, method = method, fixedmar = margin, shuffle = what,
                              mtype = "count", thin=100, times=1)$perm[[1]]
             margintest(m, gsum, rsum, csum,fill, rfrq, cfrq)