求助：如何在splus中生成块大小不同的 block diagnoal sparse matrix?

a=bds.matrix(c(4,5,6))
r=seq(1:15)
c=seq(1:15)
rownames(a)=r
colnames(a)=c
a
>a
   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
1  1 0 0 0 0 0 0 0 0  0  0  0  0  0  0
2  0 1 0 0 0 0 0 0 0  0  0  0  0  0  0
3  0 0 1 1 0 0 0 0 0  0  0  0  0  0  0
4  0 0 1 1 0 0 0 0 0  0  0  0  0  0  0
5  0 0 0 0 1 0 0 0 0  0  0  0  0  0  0
6  0 0 0 0 0 1 0 0 0  0  0  0  0  0  0
7  0 0 0 0 0 0 1 1 1  0  0  0  0  0  0
8  0 0 0 0 0 0 1 1 1  0  0  0  0  0  0
9  0 0 0 0 0 0 1 1 1  0  0  0  0  0  0
10 0 0 0 0 0 0 0 0 0  1  0  0  0  0  0
11 0 0 0 0 0 0 0 0 0  0  1  0  0  0  0
12 0 0 0 0 0 0 0 0 0  0  0  1  1  1  1
13 0 0 0 0 0 0 0 0 0  0  0  1  1  1  1
14 0 0 0 0 0 0 0 0 0  0  0  1  1  1  1
15 0 0 0 0 0 0 0 0 0  0  0  1  1  1  1

11# epoh

  ，太感谢你了！ 现在解决这个问题了。

谢谢你！