tests/testthat/test_lecuyerRNG.R

library(testthat)
library(iMRMC)

context("uStats21Diff")

init.lecuyerRNG()

test_that(
  ".Random.seed is set to expected result", {
    suppressWarnings(RNGversion("3.5.0"))
    expect_equal(.Random.seed[1], 403)
    expect_equal(.Random.seed[2], 624)
    expect_equal(.Random.seed[7], -675253042)
  }
)

Try the iMRMC package in your browser

Any scripts or data that you put into this service are public.

iMRMC documentation built on May 31, 2023, 8:36 p.m.