Я бы отфильтровал правила для правил, имеющих ровно один элемент на LHS.
rules <- rules[sapply(
1:length(rules)
,function(x) length(as(rules@lhs, "list")[[x]])) == 1];
Я думаю, предполагая условную независимость из {beer}
и {milk}
, правило{milk, nappies} => {beer}
эквивалентно высказыванию {nappies} => {beer}
, и при условии условной независимости {beer}
и {nappies}
правило {milk, nappies} => {beer}
эквивалентно правилу {milk} => {beer}
.