Care should be taken with this method not to encounter the
birthday problem, described
https://www.johndcook.com/blog/2016/01/29/random-number-generator-seed-mistakes/.
Since the sitmo
threefry
, this currently generates
one random deviate from the uniform distribution to seed the
engine threefry
and then run the code.
Arguments
- shape
The shape of the gamma random variable
- rate
an alternative way to specify the scale.
- n
number of observations. If
length(n) > 1
, the length is taken to be the number required.- ncores
Number of cores for the simulation
rxnorm
simulates using the threefry sitmo generator.rxnormV
used to simulate with the vandercorput simulator, but since it didn't satisfy the normal properties it was changed to simple be an alias ofrxnorm
. It is no longer supported inrxode2({})
blocks
Details
Therefore, a simple call to the random number generated followed by a second call to random number generated may have identical seeds. As the number of random number generator calls are increased the probability that the birthday problem will increase.
The key to avoid this problem is to either run all simulations in the
rxode2
environment once (therefore one seed or series of seeds
for the whole simulation), pre-generate all random variables
used for the simulation, or seed the rxode2 engine with rxSetSeed()
Internally each ID is seeded with a unique number so that the results do not depend on the number of cores used.
Examples
# \donttest{
## Use threefry engine
rxgamma(0.5, n = 10) # with rxgamma you have to explicitly state n
#> [1] 1.355794e-06 1.184154e-01 9.402169e-03 2.871131e-01 5.795578e-01
#> [6] 1.362098e+00 2.274397e-01 2.389341e-01 2.283278e-02 2.453927e-01
rxgamma(5, n = 10, ncores = 2) # You can parallelize the simulation using openMP
#> [1] 6.081028 4.553699 4.216456 3.053786 2.837575 3.992559 2.974116 4.653716
#> [9] 5.765096 3.788091
rxgamma(1)
#> [1] 0.4450636
## This example uses `rxbeta` directly in the model
rx <- function() {
model({
a <- rxgamma(2)
})
}
et <- et(1, id = 1:2)
s <- rxSolve(rx, et)
#>
#>
#>
#>
#> using C compiler: ‘gcc (Ubuntu 11.4.0-1ubuntu1~22.04) 11.4.0’
# }