R 向矩阵的每个元素添加适当的列和行意味着

我有个新手问题，抱歉。我在R中一步一步地进行度量。因此，我必须计算以下内容： brs=ars-平均值（ar）-平均值（as）+平均值（a） 我用这段代码进行了尝试，但当然，它只为对角线提供了正确的结果：

i <- c(1:5)
j <- c(1:5)    
brs <- (A[i,j] - colMeans(A[i,]) - rowMeans(A[,j]) + mean(A))

---

i您得到的
colMeans（A[i，]）
和
colMeans（A[，j]）
值相同。我想你不需要我，j，等等但不总是？！当我想要B[1,3]时，我需要第1列和第3行的平均值。这不是相同的值。还是我理解错了？！我无法得到B中的值。你能展示一下你是如何从A的值中得到33.8的吗？我也没有得到它们，但我想得到它们（我知道B是正确的解决方案）。通过R代码，我得到了B的以下值：33.8-36.9 1.6-27.4-17.1-6.7 3.6 5.1 22.1 5.4 25.8-0.9 9 9.6-9.4-10.6-16.2 3.1-22.4 22.6-5.1 9.3 1.6-8.4 10.1 7.4（因此，只有对角线中的值是正确的）。我不确定公式是否正确。我仔细检查了这些值，结果不一样
A <- matrix(c(0,-40.5,-8,-50,-24.5,-10.5,0,-4.5,-0.5,-2,-8,-4.5,0,-32,-18,-50,-0.5,-32,0,-12.5,-24.5,-2,-18,-12.5,0),nrow=5)

B <- matrix(c(33.8,-21.8,13.7,-21.8,-3.9,-21.8,3.6,2.1,12.6,3.5,13.7,2.1,9.6,-15.9,-9.5,-21.8,12.6,-15.9,22.6,2.5,-3.9,3.5,-9.5,2.5,7.4),nrow=5)