tests/testthat/testAnalysis.R

In corehunter: Multi-Purpose Core Subset Selection

source("testUtils.R")

##########################
context("Core evaluation")
##########################

test_that("arguments are checked", {
  expect_error(evaluateCore(TRUE), "no applicable method")
  expect_error(evaluateCore(1:10), "missing")
  expect_error(evaluateCore(1:10, "data"), "'chdata'")
  expect_error(evaluateCore(1:10, testData(), "obj"), "'chobj'")
  expect_error(evaluateCore(123456, testData(), objective("EN", "PD")), "unable to select")
})

test_that("larger cores are more representative but have higher redundancy", {
  data <- testData()
  objs <- list(
    objective("EN", "CE"),
    objective("AN", "PD")
  )
  for(obj in objs){
    core.small <- testSampleCore(data, size = 5, obj)
    core.large <- testSampleCore(data, size = 95, obj)
    expect_gte(evaluateCore(core.small, data, obj), evaluateCore(core.large, data, obj))
  }
})