R: Examples for 'withr::with_rng

### ** Examples

RNGkind()

[1] "Mersenne-Twister" "Inversion"        "Rejection"

with_rng_version("3.0.0", RNGkind())

[1] "Mersenne-Twister" "Inversion"        "Rounding"

with_rng_version("1.6.0", RNGkind())

[1] "Marsaglia-Multicarry"   "Buggy Kinderman-Ramage" "Rounding"

with_rng_version("3.0.0",
  with_seed(42, sample(1:100, 3)))

[1] 92 93 29

with_rng_version("1.6.0",
  with_seed(42, sample(1:100, 3)))

Warning in RNGkind(kind[[1]], normal.kind = kind[[2]]): buggy version of
Kinderman-Ramage generator used

Warning in RNGkind(kind[[1]], normal.kind = kind[[2]]): RNGkind:
Marsaglia-Multicarry has poor statistical properties

[1] 33 44 32

RNGkind()

[1] "Mersenne-Twister" "Inversion"        "Rejection"

fun1 <- function() {
  local_rng_version("3.0.0")
  with_seed(42, sample(1:100, 3))
}

fun2 <- function() {
  local_rng_version("1.6.0")
  with_seed(42, sample(1:100, 3))
}

RNGkind()

[1] "Mersenne-Twister" "Inversion"        "Rejection"

fun1()

[1] 92 93 29

fun2()

Warning in RNGkind(kind[[1]], normal.kind = kind[[2]]): buggy version of
Kinderman-Ramage generator used

Warning in RNGkind(kind[[1]], normal.kind = kind[[2]]): RNGkind:
Marsaglia-Multicarry has poor statistical properties

[1] 33 44 32

RNGkind()

[1] "Mersenne-Twister" "Inversion"        "Rejection"

Examples for 'withr::with_rng_version'

RNG version