Apriori算法R实现
##设置工作空间
install.packages("arules")library ( arules )
#先用setwd设置工作空间,如D盘,并将相关数据拷贝到该目录下
setwd("D:/apriori")
#读入数据
data=read.table()
tr <- read.transactions("D:/apriori/data", format = "basket", sep=",")
summary(tr)
inspect(tr)
#支持度0.2,置信度0.5
rules0=apriori(tr,parameter=list(support=0.2,confidence=0.5))
rules0
inspect(rules0)