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 )
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.