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 )
    
})

Try the PUMP package in your browser

Any scripts or data that you put into this service are public.

PUMP documentation built on April 4, 2025, 5:19 a.m.