tests/testthat/test-extract.R

In arules: Mining Association Rules and Frequent Itemsets

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), ]))