tests/testthat/test-roc-curve.R

In RobustMetrics: Calculates Robust Performance Metrics for Imbalanced Classification Problems

test_that("ROC_curve validates its inputs before plotting", {
  expect_error(
    ROC_curve(c(1, 0), c(0.8, 0.2), d = c(0.01, 0.05, 0.1)),
    "length 4"
  )
  expect_error(
    ROC_curve(c(1, 0), c(1.2, 0.2)),
    "probabilities"
  )
  expect_error(
    ROC_curve(c(1, 1), c(0.8, 0.2)),
    "both classes"
  )
})