回复 第1楼 的 Dearc:
不知道以下写的是不是楼主要求的东西
<br />
> a<-1:8<br />
> model<-function(a,n,r){<br />
+ m<-matrix(a,n,r)<br />
+ for(i in 1:n){<br />
+ m[i,]<-sample(a,r,replace=F)<br />
+ }<br />
+ return(m)<br />
+ }<br />
><br />
> model(a,4,4)<br />
[,1] [,2] [,3] [,4]<br />
[1,] 4 6 3 8<br />
[2,] 2 8 4 5<br />
[3,] 7 6 2 1<br />
[4,] 1 3 6 7<br />
</p>