# UCI online retail data set link :: # https://archive.ics.uci.edu/ml/datasets/online+retail ### recomm MBA setwd("C:/YONG/w20180728/") a1 <- read.csv("custAtt.csv") names(a1) <- c("cust", "att") write.csv(a1, "ca1.csv") # MBA --------- # EDA barplot(sort(table(a1$att), decreasing=T)) library(arules) library(arulesViz) b01 <- read.transactions("ca1.csv", rm.duplicates..