tests/testthat/test-auc.R

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

Try the broom package in your browser

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

broom documentation built on Aug. 30, 2022, 1:07 a.m.