Basket Analytic (Frequent Pattern Mining) example "in action" :)

Basket

#Install the R package arules if required
#install.packages("arules");
#load the arules package
library("arules");
 
# read the transaction file as a Transaction class
txn = read.transactions(file="d:\\work\\R\\items.csv", rm.duplicates= FALSE, format="basket",sep=",");
 
#To visualize the item frequency in txn file
itemFrequencyPlot(txn);
 
# Run the apriori algorithm
basket_rules <- apriori(txn,parameter = list(sup = 0.2, conf = 0.9,target="rules"));
# Check the generated rules using inspect
inspect(basket_rules);