data("Adult")
### find all closed frequent itemsets
closed <- apriori(Adult,
parameter = list(target = "closed", support = 0.4))
### rule induction
rules <- ruleInduction(closed, Adult, verbose = TRUE)
### inspect the resulting rules
inspect(SORT(rules, by = "lift")[1:5])
Run the code above in your browser using DataLab