> A<-matrix(1:9,3,3)
> A
     [,1] [,2] [,3]
[1,]    1    4    7
[2,]    2    5    8
[3,]    3    6    9
> B<-cbind(A,NA)
> B
     [,1] [,2] [,3] [,4]
[1,]    1    4    7   NA
[2,]    2    5    8   NA
[3,]    3    6    9   NA
> as.vector(t(B))[-length(B)]
[1]  1  4  7 NA  2  5  8 NA  3  6  9

非常感谢指点！