tests/testthat/test-util.R

test_that("get_power_names works", {

    pn <- get_power_names(M=3)
    expect_true( length( pn ) == 7 )
    
    pn <- get_power_names(M=1)
    pn
    expect_true( length( pn ) == 1 )
    
})
MDRCNY/PUMP documentation built on Feb. 26, 2025, 11:22 a.m.