tests/testthat/test-rademacher.R

In dqrng: Fast Pseudo Random Number Generators

context("rademacher")

test_that("rademacher produces -1, 1", {
    out <- dqrrademacher(10)
    unique_out <- unique(out)
    expect_identical(unique_out[order(unique_out)], c(-1L, 1L))
})

test_that("rademacher produces many -1, 1", {
    out <- dqrrademacher(1e6)
    unique_out <- unique(out)
    expect_identical(unique_out[order(unique_out)], c(-1L, 1L))
})