假设我有以下矩阵垫,这是一个二进制指示符矩阵:
mat <-matrix(c(1,1,0,0,0,0,0,1,1,0,0,0,0,0,1,1),byrow = T,nrow = 3)
> mat
[,1] [,2] [,3] [,4] [,5] [,6]
[1,] 1 1 0 0 0 0
[2,] 0 0 1 1 0 0
[3,] 0 0 0 0 1 1
该矩阵只有3行.我需要创建一个10000行,在对角线上使用相同的1对模式.例如,对于5行,我期望一个5 x 10矩阵:
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,] 1 1 0 0 0 0 0 0 0 0
[2,] 0 0 1 1 0 0 0 0 0 0
[3,] 0 0 0 0 1 1 0 0 …