tests/testthat/test-sp_auc.R

In ROCnGO: Fast Analysis of ROC Curves

test_that("sp_auc works with .condition", {
  test_iris <- create_iris_df()
  spauc_fct <- suppressWarnings(
    suppressMessages(
      sp_auc(
        test_iris,
        response = Species,
        predictor = Sepal.Length,
        lower_fpr = 0,
        upper_fpr = 0.3,
        .condition = "virginica"
      )
    )
  )
  spauc_int <- suppressWarnings(
    suppressMessages(
      sp_auc(
        test_iris,
        response = Species_int,
        predictor = Sepal.Length,
        lower_fpr = 0,
        upper_fpr = 0.3,
        .condition = 3
      )
    )
  )
  spauc_chr <- suppressWarnings(
    suppressMessages(
      sp_auc(
        test_iris,
        response = Species_chr,
        predictor = Sepal.Length,
        lower_fpr = 0,
        upper_fpr = 0.3,
        .condition = "virginica"
      )
    )
  )
  expected_tpauc <- suppressWarnings(
    suppressMessages(
      sp_auc(
        test_iris,
        response = Species_bin_fct_virg,
        predictor = Sepal.Length,
        lower_fpr = 0,
        upper_fpr = 0.3
      )
    )
  )
  expect_equal(spauc_fct, expected_tpauc)
  expect_equal(spauc_int, expected_tpauc)
  expect_equal(spauc_chr, expected_tpauc)
})