discussion on how we can use statistical methods to measure and improve the efficacy of http://freeCodeCamp.com
library(arules)
library(arulesViz)
library(datasets)
data(Groceries)
print(Groceries)
rules <- apriori(Groceries, parameter = list(supp = 0.001, conf = 0.8))
inspect(rules[1:5])