# Example from Liu et al (2008)
trans_list <- list(
t1 = c("a", "b", "c"),
t2 = c("a", "b", "c", "d"),
t3 = c("a", "d"),
t4 = c("a", "c")
)
trans <- transactions(trans_list)
its <- apriori(trans, support = 1 / 4, target = "frequent itemsets")
is.generator(its)
Run the code above in your browser using DataLab