# Association analysis returns 0 useful rules

Since new to association rules need help for identifying the most frequent extra service ordered together with the products. And to derive the association rules, I have used arules R package on past data.

I have collected and shaped the dataset as like you can download sample dataset from link (https://www.dropbox.com/s/4g5sqag9afsttmo/finaldf2.csv).

When I tried it with the following set of R codes, it can't calculate the association rules between product and services. But it calculates the rules between all services.

Can any one guide me why I am getting set of 0 rules for calculation of association rules of product. Am I doing something wrong to calculate the associations. Or My dataset should be different.

Here are the R codes generated for arules:

# Loading the library
library(arules)

# calculating the association with apriori algo
rules <- apriori(product.transaction.set, parameter = list(support = 0.4,conf = 0.6,target = "rules"))

## 1 - for product
# Deriving the association rules for productname
rules.sub.product <- subset(rules, subset = lhs %pin% "LD") # output -> set of 0 rules

# for print the calculated association rules
inspect(rules.sub.product)

## 2- for add on services ()
# Deriving the association rules for add on services
rules.sub.services <- subset(rules, subset = lhs %pin% "AO1") # output -> set of 1 rules

# for print the calculated association rules
inspect(rules.sub.services)