data("Adult")
## Mine itemsets with minimum support of 0.1 and 5 or less items
itemsets <- eclat(Adult,
parameter = list(supp = 0.1, maxlen = 5)
)
itemsets
## Create rules from the frequent itemsets
rules <- ruleInduction(itemsets, confidence = .9)
rules
Run the code above in your browser using DataLab