我有一个矩阵,我试图在最后添加一列和行总和,然后将行除以行总和,条件是行总和大于 100。这是我到目前为止所拥有的:
row.sums <- rowSums(a)
a <- cbind(a, row.sums)
这给了我想要的初始矩阵,最后有一列是行和。以下代码是我为第二步尝试的代码:
a[(a[,dim(a)]>100)] <- dtm/row.sums
这给了我一个错误,说我要替换的向量的大小与我要替换的向量不匹配。我在这里做错了什么?抱歉,如果这是一个非常基本的问题,我一般对 R/ 编码还是很陌生。