data("Adult")
## Mine rules with Apriori
rules <- apriori(Adult, parameter = list(supp = 0.6))
rules_by_lift <- sort(rules, by = "lift")
inspect(head(rules))
inspect(head(rules_by_lift))
## A faster/less memory consuming way to get the top 5 rules according to lift
## (see Details section)
inspect(head(rules, n = 5, by = "lift"))
Run the code above in your browser using DataLab