library (arules)
data ("Epub")
summary(Epub)
image(Epub)
Epub.short = Epub[1000:2000,]
dim(Epub.short)
image(Epub.short)
transactionInfo (Epub.short[size(Epub.short) > 20])
inspect (Epub[1:5])
itemFrequencyPlot(Epub, support=0.01, cex.names = 0.7)

rules = apriori (Epub, parameter = list (support=0.001, confidence=0.6))
rules # gives 9 rules
summary(rules)
# use maxlen in parameter list to limit the max size of LHSs
rules2 = apriori (Epub, parameter = list (support=0.001, confidence=0.6, maxlen = 2))
rules2 # now gives 6 rules

myrules = sort(rules, by = "lift")[1:5]
inspect(myrules)
myrules.interesting = myrules@quality[,3] > 300
for (i in 1:length(myrules))
 {
   if (myrules.interesting[i]) { inspect(myrules[i]) }
 }