tests/testthat/test_metapredict_confusion.R

In jakejh/metapredict: Meta-analysis of gene expression using the elastic net

test_that('calcConfusionValidation each = TRUE', {
  calcConfusionValidationTest =
    calcConfusionValidation(
      predsListControl, lambda = lambda, sampleMetadata = sampleMetadata,
      classLevels = classLevels)
  expect_equal(
    calcConfusionValidationTest, calcConfusionValidationControl,
    check.attributes = FALSE)
})

test_that('calcConfusionValidation each = FALSE', {
  calcConfusionValidationEachFalseTest =
    calcConfusionValidation(
      predsListControl, lambda = lambda, sampleMetadata = sampleMetadata,
      classLevels = classLevels, each = FALSE)
  expect_equal(
    calcConfusionValidationEachFalseTest,
    calcConfusionValidationEachFalseControl, check.attributes = FALSE)
})