data <- list(
c("a", "b", "c"),
c("a", "b"),
c("a", "b", "d"),
c("b", "e"),
c("b", "c", "e"),
c("a", "d", "e"),
c("a", "c"),
c("a", "b", "d"),
c("c", "e"),
c("a", "b", "d", "e")
)
data <- as(data, "transactions")
## mine itemsets
f <- eclat(data, parameter = list(support = .2, minlen = 3))
inspect(f)
## find supporting Transactions
st <- supportingTransactions(f, data)
st
as(st, "list")
Run the code above in your browser using DataLab