tests/testthat/test-get_AUC.R

test_that("'get_AUC' works", {
  auc <- get_AUC(tumor_toy_data, control_toy_data, cores=2)
  expect_type(auc, "list")
  auc <- get_AUC(tumor_toy_data, control_toy_data, cores=2, full_info=TRUE)
  expect_length(auc, 4)
})
cgplab/PAMES documentation built on Dec. 4, 2022, 6:35 p.m.