Apriori算法的R语言实现


1)数据准备

library(arules)

 a<-matrix(0,7,4,dimnames=list(c("basket1","basket2","basket3","basket4",
+ "basket5","basket6","basket7"),c("item1","item2","item3","item4")))
> a[1,]<-c(1,0,1,0)
> a[2,]<-c(0,0,1,1)
> a[3,]<-c(1,1,1,1)
> a[4,]<-c(1,1,0,0)
> a[5,]<-c(0,0,1,0)
> a[6,]<-c(1,0,1,1)
> a[7,]<-c(0,1,1,1)

 a.class<-as(a,"transactions")

apriori函数进行关联分析

rules<-apriori(a.class,parameter=list(supp=0.2,conf=0.6,target="rules"))

inspect(rules)

   lhs              rhs              support   confidence   lift     
1  {}            => {item3} 0.8571429 0.8571429  1.0000000
2  {item2}       => {item1} 0.2857143 0.6666667  1.1666667
3  {item2}       => {item4} 0.2857143 0.6666667  1.1666667
4  {item2}       => {item3} 0.2857143 0.6666667  0.7777778
5  {item1}       => {item3} 0.4285714 0.7500000  0.8750000
6  {item4}       => {item3} 0.5714286 1.0000000  1.1666667
7  {item3}       => {item4} 0.5714286 0.6666667  1.1666667
8  {item2,item4} => {item3} 0.2857143 1.0000000  1.1666667
9  {item2,item3} => {item4} 0.2857143 1.0000000  1.7500000
10 {item

  • 1
    点赞
  • 13
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值