数据挖掘算法-关联规则Apriori

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)