tests/testthat/test-np_auc.R

In ROCnGO: Fast Analysis of ROC Curves

test_that("np_auc works with .conditions", {
  test_iris <- create_iris_df()

  np_auc_fct <- suppressWarnings(
    suppressMessages(
      np_auc(
        test_iris,
        response = Species,
        predictor = Sepal.Length,
        .condition = "virginica",
        lower_tpr = 0.9
      )
    )
  )
  np_auc_int <- suppressWarnings(
    suppressMessages(
      np_auc(
        test_iris,
        response = Species_int,
        predictor = Sepal.Length,
        .condition = 3,
        lower_tpr = 0.9
      )
    )
  )
  np_auc_chr <- suppressWarnings(
    suppressMessages(
      np_auc(
        test_iris,
        response = Species_chr,
        predictor = Sepal.Length,
        .condition = "virginica",
        lower_tpr = 0.9
      )
    )
  )
  expected_npauc <- suppressWarnings(
    suppressMessages(
      np_auc(
        test_iris,
        response = Species_bin_fct_virg,
        predictor = Sepal.Length,
        lower_tpr = 0.9
      )
    )
  )
  expect_equal(np_auc_fct, expected_npauc)
  expect_equal(np_auc_int, expected_npauc)
  expect_equal(np_auc_chr, expected_npauc)
})