tests/testthat/test-make_fake_data.R

test_that("make fake data works", {

    dd = make_fake_data()
    ddA = make_fake_data(scenario = "A")

    expect_true( nrow( dd ) == 18 )
    expect_true( mean( ddA$Z ) == 0.5 )

})
li-xinran/RIQITE documentation built on July 1, 2023, 6:58 p.m.