用对角线元素创建矩阵是r中的矩阵

Question

我有一个2X2矩阵，例如A=matrix(1:4,2,2)。使用这个矩阵，我想构建矩阵，其对角线元素如下所示。这个例子只有三个A，但我想用矩阵A的n对角元素制作矩阵

|A  0  0|
|0  A  0|
|0  0  A|

Answer 1

> DiagonalMatrix <- function(n, x) `diag<-`(matrix(0, n, n), x)
> DiagonalMatrix(2, 10)
     [,1] [,2]
[1,]   10    0
[2,]    0   10