tests/testthat/test_make_random_draws.R

In edsandorf/cmdlR: Choice Modeling in R

context("Test that make_random_draws() returns correct dimensions")

test_that("make_random_draws() returns correct dimension", {
    N <- 10
    R <- 5
    D <- 3
    seed <- 123
    
    draws_01 <- make_draws(N, R, D, seed, "pseudo-random")
    draws_02 <- make_draws(N, R, D, seed, "mlhs")
    draws_03 <- make_draws(N, R, D, seed, "standard-halton")
    draws_04 <- make_draws(N, R, D, seed, "scrambled-halton")
    draws_05 <- make_draws(N, R, D, seed, "standard-sobol")
    draws_06 <- make_draws(N, R, D, seed, "scrambled-sobol")
    
    expect_true(all(dim(draws_01) == c(50, 3)))
    expect_true(all(dim(draws_02) == c(50, 3)))
    expect_true(all(dim(draws_03) == c(50, 3)))
    expect_true(all(dim(draws_04) == c(50, 3)))
    expect_true(all(dim(draws_05) == c(50, 3)))
    expect_true(all(dim(draws_06) == c(50, 3)))
    

})