从向量到相邻对角矩阵的变换

Question

如何转换

xm<-matrix(c(.1,.2,1),ncol=1)

到

nd_ylwij
     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
[1,]  0.1  0.0  0.0  0.2  0.0  0.0    1    0    0
[2,]  0.0  0.1  0.0  0.0  0.2  0.0    0    1    0
[3,]  0.0  0.0  0.1  0.0  0.0  0.2    0    0    1

这不起作用，我不知道为什么

lapply(as.list(xm),diag)

Answer 1

你可以这样做：

do.call(cbind, lapply(xm, `*`, diag(length(xm))))