Implemented eclat in R

Author: tanvirrazin

part_5-association-rule/eclat/eclat.R

@@ -0,0 +1,14 @@
+# Apriori
+
+# Data pre-processing
+library(arules)
+dataset = read.csv('../../data_files/Market_Basket_Optimisation.csv', header=FALSE)
+dataset = read.transactions('../../data_files/Market_Basket_Optimisation.csv', sep=',', rm.duplicates=TRUE)
+summary(dataset)
+itemFrequencyPlot(dataset, topN=100)
+
+# Training Eclat on the dataset
+rules = eclat(data=dataset, parameter=list(support=0.004, minlen=2))
+
+# Visualizing the results
+inspect(sort(rules, by='lift')[1:10])