library(arules)
data(Groceries)
frequentsets=eclat(Groceries,parameter=list(support=0.05,maxlen=10))
inspect(frequentsets[1:10])
inspect(sort(frequentsets,by="support")[1:10])
rules=apriori(Groceries,parameter=list(support=0.01,confidence=0.01))
summary(rules)
x=subset(rules,subset=rhs%in%"whole
inspect(sort(x,by="support")[1:5])
原文:http://blog.youkuaiyun.com/statdm/article/details/7236488