Проблема с априорной функцией в R

Я очень новичок в Data Mining. У меня есть задание распечатать все правила ассоциации против доверия, используя функцию Apriori (Package: arules) в R. Но проблема в том, что она печатает только один элемент в RHS. Ниже программа, которую я использовал:

a_list <- list(
c("I1","I2","I5"),
c("I2","I4"),
c("I2","I3"),
c("I1","I2","I4"),
c("I1","I3"),
c("I2","I3"),
c("I1","I3"),
c("I1","I2","I3","I5"),
c("I1","I2","I3")
)
names(a_list) <- paste("T",c(1:9), "00", sep = "")
table5_1 <- as(a_list, "transactions")
rules <- apriori(table5_1, parameter = list(supp = 0.21, conf = 0.7,
target = "rules"))
inspect(rules)

Вывод :

     lhs        rhs  support   confidence lift     count
 [1] {}      => {I2} 0.7777778 0.7777778  1.000000 7    
 [2] {I4}    => {I2} 0.2222222 1.0000000  1.285714 2    
 [3] {I5}    => {I1} 0.2222222 1.0000000  1.500000 2    
 [4] {I5}    => {I2} 0.2222222 1.0000000  1.285714 2    
 [5] {I1,I5} => {I2} 0.2222222 1.0000000  1.285714 2    
 [6] {I2,I5} => {I1} 0.2222222 1.0000000  1.500000 2 

Может ли кто-нибудь сказать метод, с помощью которого я могу получить все сгенерированные правила ассоциации? Я пробовал это с minlen и maxlen, но у меня ничего не получалось. заранее спасибо