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.

rxcauchy(location = 0, scale = 1, n = 1L, ncores = 1L)

Arguments

location

location and scale parameters.

scale

location and scale parameters.

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 uses the vandercorput generator

Value

Cauchy random deviates

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 RxODE 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 RxODE engine with rxSetSeed()

Also care should be made that the computer you will be running on can run the same number of cores as you are running so they can reproduce your results.

Examples

# \donttest{

## Use threefry engine

rxcauchy(0, 1, n = 10) # with rxcauchy you have to explicitly state n
#>  [1]   -1.94207045    3.39594273   -0.05786487    0.08809249   -0.62469096
#>  [6]   -0.54844020   -0.33544509    0.04824928   -0.04048175 -898.25429453
rxcauchy(0.5, n = 10, ncores = 2) # You can parallelize the simulation using openMP
#>  [1]  0.2458979  2.3900298  1.6456616  0.3174716 -3.8656137  2.6377564
#>  [7]  1.5065495  0.9171792 -1.1478775  4.2715368

rxcauchy(3)
#> [1] -117.2998


## This example uses `rxcauchy` directly in the model

rx <- RxODE({
  a <- rxcauchy(2)
})
#>  

et <- et(1, id = 1:2)

s <- rxSolve(rx, et)
# }