[Vegan-commits] r678 - in pkg/vegan: R inst

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

Author: jarioksa
Date: 2009-01-29 08:50:10 +0100 (Thu, 29 Jan 2009)
New Revision: 678

Modified:
   pkg/vegan/R/anova.ccabymargin.R
   pkg/vegan/inst/ChangeLog
Log:
anova.cca(..., by='margin') was using different permutations for the 2nd term

Modified: pkg/vegan/R/anova.ccabymargin.R
===================================================================
--- pkg/vegan/R/anova.ccabymargin.R	2009-01-28 16:37:53 UTC (rev 677)
+++ pkg/vegan/R/anova.ccabymargin.R	2009-01-29 07:50:10 UTC (rev 678)
@@ -35,8 +35,8 @@
         }
         else {
             sol <- rbind(sol[1:(i-1),], as.matrix(tmp[1,]), sol[i,])
-            assign(".Random.seed", seed, envir = .GlobalEnv)
         }
+        assign(".Random.seed", seed, envir = .GlobalEnv)
     }
     ## Put RNG at the end of the longest simulation
     assign(".Random.seed", bigseed, envir = .GlobalEnv)

Modified: pkg/vegan/inst/ChangeLog
===================================================================
--- pkg/vegan/inst/ChangeLog	2009-01-28 16:37:53 UTC (rev 677)
+++ pkg/vegan/inst/ChangeLog	2009-01-29 07:50:10 UTC (rev 678)
@@ -4,6 +4,9 @@
 
 Version 1.6-11 (opened Jan 28, 2009)
 
+	* anova.cca: used different random number sequence for the second
+	term with by = "margin". 
+
 	* ordirgl & orgltext: removed work arounds for very old versions
 	(pre-0.65) of the rgl package.