## Create transaction data set.
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 with tidLists.
f <- eclat(data, parameter = list(support = 0, tidLists = TRUE))
tl <- tidLists(f)
## Get dimensions of the tidLists.
dim(tl)
dimnames(tl)
## Coerce tidLists to list.
as(tl, "list")
## Inspect visually.
image(tl)
Run the code above in your browser using DataLab