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