用R语言做关联规则分析时，删除冗余规则时老是报错，请各位大神帮我看下！谢谢！

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

> bzrules0.sorted = sort(bzrules0,by="lift")
> subset.matrix=is.subset(bzrules0.sorted,bzrules0.sorted)
> subset.matrix[lower.tri(subset.matrix,diag = T)] <- NA
Warning message:
In `[<-`(`*tmp*`, as.vector(i), value = NA) :
  x[.] <- val: x is “ngTMatrix”, val not in {TRUE, FALSE} is coerced; NA |--> TRUE.
警告不造啥意思。。。

> redundant = colSums(subset.matrix,na.rm = T) >= 1
> bzrules0.pruned = bzrules0.sorted[!redundant] #去掉冗余的规则
> inspect(head(bzrules0.pruned))
Error in slot(x, s)[i] : subscript out of bounds

Enter a frame number, or 0 to exit   

1: inspect(head(bzrules0.pruned))
2: head(bzrules0.pruned)
3: head(bzrules0.pruned)
4: .local(x, ...)
5: x[head(o, n = n, ...)]
6: x[head(o, n = n, ...)]
7: slot(x, s)[i]
8: slot(x, s)[i]

Selection: 1
Called from: x[head(o, n = n, ...)]
Browse[1]>

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：关联规则 R语言 redundant Selection Election

我也遇到这个问题了，请问你解决了吗？

is.subset在1.5-2版本后默认返回稀疏矩阵，要按你说的方法来做的话要加上 sparse = FALSE选项。或者用is.redundant来修剪冗余规则