r - 如何将 n*1 矩阵转换为 n*n 对角矩阵

Question

我有一个 nx1 矩阵，我想将其转换为 R 中的 nxn 对角矩阵

Answer 1

如果您只是想知道如何在 R 中执行此操作， 它的:

my.matrix       <- matrix(0, nrow=4, ncol=4)
diag(my.matrix) <- rep(0.25, 4)