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

Question

我试图通过添加相应的条目并将它们除以相应的对角线条目的总和 (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])
      }
    }

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

score 0 · Accepted Answer

好吧，如果您考虑一下，您正在使用已经更新的值求和（因为您正在循环遍历每个 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])
  }
}

1 回答 1