r - 2项支撑计算

Question

我需要计算 2 项支持。至于给定的数据，我有一个条件概率矩阵，将一个项目作为第一个项目放入篮子的概率如下：

c("Hammer", "Nails", "Screws", "Screwdriver", "Wrench", "Level", "Drill", "Brush")
p<-c(0.02, 0.2, 0.2, 0.2, 0.05, 0.01, 0.02, 0.3)

所以对于 1-item 支持我做了简单的

t(CondProbs)%*%p

您能给我以下提示吗？

通过说 2 项支持，我的意思是计算每对产品出现 P(X, Y) 的机会。我有 1 项支持：

sup1=c(0.15,0.49,0.64,0.57,0.19,0.09,0.12,0.58)

在这个帮助下，我需要 2 项支持。我找到了一个例子，但我确定的是，我应该在不使用for函数的情况下计算它。

>for (j in 1:n){
+ if(sup1[j]>=supthresh){
+ for (k in j:n){
+ if (sup1[k]>=supthresh){
+ sup2[j,k]<-data[,j]%*%data[,k]
+ sup2[k,j]<-sup2[j,k] } } } }
> sup2<-sup2/nobs
> sup2

ps supthresh是我们这里的规则的阈值supthresh<-0.2

标签： rprobabilityanalysis