tests/testthat/test-AsociationRules.R

context("AssociationRules")

test_that("Test AssociationRules with EGATUR dataset.", {

  modelFit <- AssociationRules(EGATUR[,c(2,4,5,8)])
  expect_equal(class(modelFit), "MLA")
  expect_equal(modelFit[[1]], "Association")

})

Try the MachineLearning package in your browser

Any scripts or data that you put into this service are public.

MachineLearning documentation built on March 13, 2020, 2:54 a.m.