data <- list(
c("a","b","c"),
c("a","b"),
c("a","b","d"),
c("c","e"),
c("a","b","d","e"),
)
names(data) <- paste("Tr",c(1:5), sep = "")
### coerce data into transactins
trans <- as(data, "transactions")
### analyze transactions
summary(trans)
image(trans)
Run the code above in your browser using DataLab