This package contains a set of functions for working with Random Number Generators (RNGs). In particular, it defines a generic S4 framework for getting/setting the current RNG, or RNG data that are embedded into objects for reproducibility.
Notably, convenient default methods greatly facilitate the way current RNG settings can be changed.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | showRNG()
s <- getRNG()
RNGstr(s)
RNGtype(s)
# get what would be the RNG seed after set.seed
s <- nextRNG(1234)
showRNG(s)
showRNG( nextRNG(1234, ndraw=10) )
# change of RNG kind
showRNG()
k <- RNGkind()
k[2L] <- 'Ahrens'
try( RNGkind(k) )
setRNG(k)
showRNG()
# set encoded kind
setRNG(501L)
showRNG()
# use as set seed
setRNG(1234)
showRNG()
r <- getRNG()
# extract embedded RNG specifications
runif(10)
setRNG(list(1, rng=1234))
rng.equal(r)
# restore default RNG (e.g., after errors)
RNGrecovery()
showRNG()
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.