R Programming Market Basket Analysis Error

Question

I'm trying to perform Market Basket Analysis and after executing the inspect command I get the following error:

Error in slot(x, s)[i] : subscript out of bounds.

This is my code:

basket_rules <- apriori(txn, parameter = list(sup = 0.005, conf = 0.01, target="rules"))
basket.sorted <- sort(basket_rules, by = "lift")
itemFrequencyPlot(txn, topN = 25)
inspect(basket.sorted[1:5])

Answer 1

The basket.sorted() has less than 5 rules. Refer the below example:

library(arules)
data("Adult")
basket_rules <- apriori(Adult, parameter = list(sup = 0.9, conf = 0.5, target="rules"))
basket.sorted <- sort(basket_rules, by = "lift")
inspect(basket.sorted[1:5])
# Error in slot(x, s)[i] : subscript out of bounds
basket.sorted
# set of 2 rules
inspect(basket.sorted[1:2])
#     lhs    rhs                 support   confidence lift
# [1] {}  => {capital-gain=None} 0.9173867 0.9173867  1   
# [2] {}  => {capital-loss=None} 0.9532779 0.9532779  1