data("Adult_transactions")
## Mine only rules with small or large income in the right-hand-side.
rules <- apriori(Adult_transactions,
appearance = list(rhs = c("income = small",
"income = large"),
default="lhs"))
Run the code above in your browser using DataLab