使用矩阵条目改变矩阵中的条目

Question

我想通过添加相应的条目来将我的矩阵（tc）对称（使用R）并将它们除以相应对角条目（tc [i，j] + TC [J，I]）/（TC [I，I] + TC [J，J]）。我试过用循环，但它并没有给我正确的值，更不用说使矩阵对称。这是我的代码到目前为止：

for (i in 1:end){ 
     for(j in 1:end){ 
     tc[i,j]<-(tc[i,j]+tc[j,i])/(tc[i,i]+tc[j,j]) 
     } 
    } 

这可能是一个非常明显的错误，但我无法弄清楚。谁能帮我？ =）

Answer 1

那么，如果你考虑一下，你正在使用你已经更新过的值进行求和（因为你正在遍历每个i和j）。

如果您制作一个尺寸与tc相同的新矩阵，然后运行循环，该怎么办？

newTc <- matrix(0, nrow=nrow(tc), ncol=ncol(tc)) 
for (i in 1:end){ 
    for(j in 1:end){ 
    newTc[i,j]<-(tc[i,j]+tc[j,i])/(tc[i,i]+tc[j,j]) 
    } 
}