data("Adult_transactions")
## Mine association rules.
rules <- apriori(Adult_transactions,
parameter = list(supp = 0.5, conf = 0.9,
target = "rules"))
summary(rules)
Run the code above in your browser using DataLab