test_that("as_tibble() works", {
expect_error(
dca_binary <-
dca(cancer ~ cancerpredmarker, data = df_binary) %>%
as_tibble(),
NA
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.