library(pROC)

context("large data sets")

test_that("roc can deal with 1E5 data points and many thresholds", {
  response <- rbinom(1E5, 1, .5)
  predictor <- rnorm(1E5)
  # ~ 0.6s
  r <- roc(response, predictor)
  ci(r)
  expect_is(auc(r, partial.auc = c(0.9, 1)), "auc")
})

test_that("roc can deal with 1E6 data points and few thresholds", {
  response <- rbinom(1E6, 1, .5)
  predictor <- rpois(1E6, 1)
  # ~ 0.3s
  r <- roc(response, predictor)
  ci(r)
  expect_is(auc(r, partial.auc = c(0.9, 1)), "auc")
})

test_that("roc can deal with 1E7 data points and few thresholds", {
  skip_slow()
  response <- rbinom(1E7, 1, .5)
  predictor <- rpois(1E7, 1)
  # ~ 3s
  r <- roc(response, predictor)
  ci(r)
  expect_is(auc(r, partial.auc = c(0.9, 1)), "auc")
})