[Dplr-commits] r849 - pkg/dplR/man

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

Author: mvkorpel
Date: 2014-05-02 16:39:11 +0200 (Fri, 02 May 2014)
New Revision: 849

Modified:
   pkg/dplR/man/redfit.Rd
Log:
Restore .Random.seed at the end of the example. After running
example(redfit), the random state is as if one random number had been
used. Avoids always returning to the same state after example(redfit).


Modified: pkg/dplR/man/redfit.Rd
===================================================================
--- pkg/dplR/man/redfit.Rd	2014-05-02 13:37:25 UTC (rev 848)
+++ pkg/dplR/man/redfit.Rd	2014-05-02 14:39:11 UTC (rev 849)
@@ -310,6 +310,8 @@
 # a period of 10 and an amplitude of have the rednoise sd.
 library(graphics)
 library(stats)
+runif(1)
+rs <- .Random.seed
 set.seed(123)
 nyrs <- 500
 yrs <- 1:nyrs
@@ -391,6 +393,7 @@
 box()
 par(op)
 }
+.Random.seed <- rs
 }
 \keyword{ ts }
 \keyword{ htest }