> 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]>