When I attempt to subset transactions with arules it returns the entire transaction database/item matrix.
I've referenced the following post, but it doesn't seem to work correctly: R arules - subset of transactions that match a rule
Any hints as to where I am going wrong?
require(arules)
data("Adult")
## Mine association rules.
rules <- apriori(Adult,
parameter = list(supp = 0.5, conf = 0.9, target = "rules", minlen = 2))
summary(rules)
sub_rules <- rules[1]
inspect(sub_rules)
sub_trans <- subset(Adult, items %in% lhs(sub_rules))