context("Funnelslice runs silently")
test_that("funnelslice defaults work", {
load("cabg.rda")
x <- cabg
expect_silent(
{out <- funnelslice(x)})
expect_null(out)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.