使对称矩阵成为R中的对角矩阵

Question

我有对称矩阵（例如M <- matrix(1:4, ncol = 2)），我想将对角线元素设置为0。有比diag(diag(M), ncol = ncol(M))更聪明的方法吗？

注意：diag不支持diag(M, ncol = ncol(M))的usssage，也没有像diag(M, as.matrix = TRUE)等选项。

Answer 1

不确定它是好还是坏，但你可以用相应的单位矩阵计算矩阵的元素乘积。