tests/testthat/test-extract.R

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

Try the arules package in your browser

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

arules documentation built on Nov. 17, 2017, 6:02 a.m.