data("Income")
### find and some frequent itemsets
itemsets <- eclat(Income)[1:5]
### inspect the support returned by eclat
inspect(itemsets)
### count support in the database
support(items(itemsets), Income)
Run the code above in your browser using DataLab