tests/testthat/test-extract.R

In arules: Mining Association Rules and Frequent Itemsets

library("arules")
library("testthat")

context("extract")

data("Adult")

expect_equal(Adult, c(Adult[1:100], Adult[-(1:100)]))


ec <- eclat(Adult,control=list(verb=FALSE))
expect_equal(ec, c(ec[1:100], ec[-(1:100)]))

i <- items(ec)
expect_equal(i, c(i[1:100,], i[-(1:100),]))