tests/testthat/test-CBA.R

In arulesCBA: Classification Based on Association Rules

library("testthat")
library("arulesCBA")
data("iris")

context("CBA")

cba_classifier <- CBA(Species ~ ., iris, supp = 0.05, conf = 0.9, pruning = "M1")
cba_classifier

expect_equal(length(cba_classifier$rules), 8L)

results <- predict(cba_classifier, iris)
expect_equal(results[1], factor("setosa",
  levels = c("setosa", "versicolor", "virginica")))

results <- predict(cba_classifier, head(iris, n = 5))
expect_equal(length(results), 5L)

context("Prediction methods")

cba_classifier$method <- "majority"
results <- predict(cba_classifier, head(iris, n = 5))
expect_equal(length(results), 5L)

cba_classifier$method <- "weighted"
results <- predict(cba_classifier, head(iris, n = 5))
expect_equal(length(results), 5L)

# FIXME: We need to check what the output of M2 should be
cba_classifier_M2 <- CBA(Species ~ ., iris, supp = 0.05, conf = 0.9, pruning = "M2")
# FIXME: there is a bug in totalError calculation in M2
#expect_equal(length(cba_classifier_M2$rules), 8L)

# Test 0 rules
cba <- CBA(Species ~ ., iris, supp = 1, conf = 0.9, verbose = FALSE)
expect_equal(cba$default, factor("setosa", levels = classes(Species ~ ., iris)))

result <- predict(cba, head(iris, n = 5))
expect_equal(result, factor(rep("setosa", 5), levels = classes(Species ~ ., iris)))