Алгоритм Априори для генерации всех правил с использованием R

Question

Вот мой код R для генерации правил ассоциации с использованием пакета arules в R

c1 <- c("A","F","D","B")
c2 <- c("D","B","A","C","E")
c3 <- c("C","B","A","E")
c4 <- c("B","D","A")

transactions <- list(c1,c2,c3,c4)

rules_b <- apriori(transactions, parameter = list(supp = 0.6, conf = 0.8, target = "rules"))

В результате я получаю только 8 правил.

> inspect(rules_b)
  lhs      rhs support confidence lift
1 {}    => {B} 1.00    1          1   
2 {}    => {A} 1.00    1          1   
3 {D}   => {B} 0.75    1          1   
4 {D}   => {A} 0.75    1          1   
5 {B}   => {A} 1.00    1          1   
6 {A}   => {B} 1.00    1          1   
7 {B,D} => {A} 0.75    1          1   
8 {A,D} => {B} 0.75    1          1  

Если мы решим это, мы также можем получить D => {A,B} как правило. Но это не отображается в этой программе. Что не так в моем коде?

Answer 1

Является ли это(?apriori) ответь на свой вопрос?

Примечание: Apriori создает правила только с одним элементом в RHS (в результате)!