tests/testthat/test_clustering.heuristics.ChiSquareHeuristic.R

In D2MCS: Data Driving Multiple Classifier System

testthat::test_that("ChiSquareHeuristic: heuristic function works", {

  heuristic <- ChiSquareHeuristic$new()

  col1 <- c(1, 0, 2)
  col2 <- c(3, 2, 3)
  column.names <- c("ex", "Class")
  testthat::expect_type(suppressWarnings(heuristic$heuristic(col1 = col1,
                                                             col2 = col2,
                                                             column.names = column.names)),
                        "double")
})

testthat::test_that("ChiSquareHeuristic: heuristic function checks parameter", {

  heuristic <- ChiSquareHeuristic$new()

  col1 <- "1"
  col2 <- "2"
  column.names <- c("ex", "Class")
  testthat::expect_equal(suppressWarnings(heuristic$heuristic(col1 = col1,
                                                              col2 = col2,
                                                              column.names = column.names)),
                         NA)
})