tests/test-runifInterface-nonLCG.R

In randtoolbox: Toolbox for Pseudo and Quasi Random Number Generation and Random Generator Tests

library(randtoolbox)
RNGkind()

n <- 10

#set WELL19937a
set.generator("WELL", version="19937a", seed=12345)
runif(n)


storedState <- get.description()
x <- runif(n)

y <- runif(n)

#Restore the generator from storedState and regenerate the same numbers
put.description(storedState)
all(x == runif(n))


# generate the same random numbers as in Matlab
set.generator("MersenneTwister", initialization="init2002", resolution=53, seed=12345)
runif(n)
# [1] 0.9296161 0.3163756 0.1839188 0.2045603 0.5677250
# Matlab commands rand('twister', 12345); rand(1, 5) generate the same numbers,
# which in short format are   0.9296    0.3164    0.1839    0.2046    0.5677


storedState <- get.description()