context("auc")
skip_on_cran()
skip_if_not_installed("modeltests")
library(modeltests)
skip_if_not_installed("AUC")
test_that("AUC::roc tidier arguments", {
check_arguments(tidy.roc)
})
test_that("tidy.roc", {
data(churn, package = "AUC")
r <- AUC::roc(churn$predictions, churn$labels)
td <- tidy(r)
check_tidy_output(td)
check_dims(td, expected_cols = 3)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.