basket_analysis.R

inspect(sort(basketApriori, by="confidence"))

"
  lhs    rhs                         support confidence lift
1 {}  => {Apparel and Accessories} 0.4846383  0.4846383    1
2 {}  => {Shoes}                   0.3488603  0.3488603    1
3 {}  => {Accessories}             0.1219029  0.1219029    1
"

# Lowering the support/confidence to negl levels 
# just so I can add the minlen parameter
"
  lhs                          rhs                           support  confidence       lift
1 {Accessories}             => {Apparel and Accessories} 0.004955401 0.040650407 0.08387783
2 {Shoes}                   => {Apparel and Accessories} 0.004459861 0.012784091 0.02637863
3 {Apparel and Accessories} => {Accessories}             0.004955401 0.010224949 0.08387783
4 {Apparel and Accessories} => {Shoes}                   0.004459861 0.009202454 0.02637863
"