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

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

Author: jarioksa
Date: 2011-10-06 10:38:37 +0200 (Thu, 06 Oct 2011)
New Revision: 1937

Modified:
   pkg/vegan/R/permutest.cca.R
Log:
enable setting RNG for parallel process, as with set.seed(4711, "L'Ecuyer")


Modified: pkg/vegan/R/permutest.cca.R
===================================================================
--- pkg/vegan/R/permutest.cca.R	2011-10-05 19:29:04 UTC (rev 1936)
+++ pkg/vegan/R/permutest.cca.R	2011-10-06 08:38:37 UTC (rev 1937)
@@ -104,6 +104,7 @@
     if (parallel > 1 && getRversion() >= "2.14" && require(parallel)
         && .Platform$OS.type == "unix") {
         R <- ceiling(permutations/parallel)
+        mc.reset.stream()
         tmp <- do.call(rbind, mclapply(seq_len(parallel), getF, R = R,
                                        mc.cores = parallel))
     } else {