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

Question

我试图通过添加相应的条目来使我的矩阵(tc)对称(使用R)，并将这些项除以对应的对角项(tci，j+tcj，i)/(tci，i+tcj，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])
  }
}