最简单的方法,手动调整,
而且不会错误.
假设是2个对角块
只要改这行就可
for (i in seq_along(x))
改成 for (i in :1:2)

假设是3个对角块
只要改这行就可
for (i in seq_along(x))
改成 for (i in 1:3)

9# epoh

呵呵，非常感谢你！

不过现在出现的是：

     [,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

可是要的不是二维这种，
要下面这种一维的：
         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


你看把[1,] 转为1，

要生成这样的形式， 还需要改动哪里？

非常感谢你！

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

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

谢谢你！