data("Income")
rules <- apriori(Income, support = 0.2)
is.significant(rules)
rules[is.significant(rules)]
# Adjust P-values for multiple comparisons
rules[is.significant(rules, adjust = "bonferroni")]
Run the code above in your browser using DataLab