data("Adult")
## Mine rules.
rules <- apriori(Adult, parameter = list(support = 0.4))
## Select a subset of rules using partial matching on the items
## in the right-hand-side and a quality measure
rules.sub <- subset(rules, subset = rhs %pin% "sex" & lift > 1.3)
## Display rules.
inspect(sort(rules.sub)[1:3])
## Get labels for rules
labels(rules.sub[1:3])
labels(rules.sub[1:3], itemSep = "+ ", setStart = "", setEnd="",
ruleSep = "---> ")
Run the code above in your browser using DataLab