a<-c(1,2,3,4)
b<-rbind(a,a,a,a)  #扩充为n行，则为n个a，此例为4行

> x=1:4
> n=4
第一种思路：矩阵自动填充
> matrix(x,nrow=n,ncol=length(x),byrow=T)
     [,1] [,2] [,3] [,4]
[1,]    1    2    3    4
[2,]    1    2    3    4
[3,]    1    2    3    4
[4,]    1    2    3    4
第二种思路：矩阵外积
> t(outer(x,rep(1,n)))
     [,1] [,2] [,3] [,4]
[1,]    1    2    3    4
[2,]    1    2    3    4
[3,]    1    2    3    4
[4,]    1    2    3    4