tests/testthat/test-extract.R

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), ]))
mhahsler/arules documentation built on June 15, 2025, 9:40 a.m.