data("Adult_transactions")
## Mine frequent itemsets with Eclat.
fsets <- eclat(Adult_transactions, parameter = list(supp = 0.5))
## Display the 5 itemsets with the highest support.
inspect(SORT(fsets)[1:5])
Run the code above in your browser using DataLab