R：如何减去对角矩阵？

Question

我正在使用方差和协方差矩阵。因此，我需要对其进行一些转换，现在我的想法是给定一个确定的矩阵：

private void button4_Click(object sender, EventArgs e) { 
  File.WriteAllText(@"C:\demo.txt", textBox2.Text, "")); 
} 

我需要从原始矩阵中减去对角矩阵。我正在使用此代码

SOFM<-matrix (data=1:5, nrow=4, ncol=4)

1 5 4 3
2 1 5 4 
3 2 1 5
4 3 2 1

结果将是：

SOFM-diag(diag(SOFM))

但是，它不起作用。