代码：
subset.matrix[lower.tri(subset.matrix,diag=TRUE)]<-NA #目标是将下三角矩阵修改成NA，然后计算矩阵的colSums值，如果该值>=1,则意味着该制定规则是冗余的

报错：
Warning message:
In `[<-`(`*tmp*`, as.vector(i), value = NA) :
  x[.] <- val: x is “ngTMatrix”, val not in {TRUE, FALSE} is coerced; NA |--> TRUE.

分析：
看矩阵的下三角并没有被置空，全是TRUE；所以在后面删除冗余规则的时候所有规则都被删除了

求助：
不知道哪里出了问题，求问大神指导该如何解决？