[Vegan-commits] r679 - branches/1.15/R

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

Author: jarioksa
Date: 2009-01-30 13:16:31 +0100 (Fri, 30 Jan 2009)
New Revision: 679

Modified:
   branches/1.15/R/anova.ccabymargin.R
Log:
merged r678 in branches/1.15 (anova.ccabymargin RNG setting bug for the 2nd term)

Modified: branches/1.15/R/anova.ccabymargin.R
===================================================================
--- branches/1.15/R/anova.ccabymargin.R	2009-01-29 07:50:10 UTC (rev 678)
+++ branches/1.15/R/anova.ccabymargin.R	2009-01-30 12:16:31 UTC (rev 679)
@@ -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)