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