tests/testthat/test_random.R

context("random")

test_that("check number of samples", {
    n <- 5L
    expect_identical(length(rtw(n)), n)
})
jacobcvt12/twR documentation built on May 18, 2019, 9:04 a.m.