16 個の数値のベクトルを 100 回繰り返す必要があり、いくつかの固定数値と特定の場所でランダムに作成された数値があります。関数を作成しましたが、乱数でさえ、ランダムに生成された最初のベクトルを繰り返します。しかし、目的の位置で 100 個の乱数の配列を取得するには、関数 sample が繰り返されるすべてのベクトルで機能する必要があります。
r1<- c(1,3,2,1,2,sample(1:4,1,replace=T),4,sample(1:4,1,replace=T),3,sample(1:4,1,replace=T),
sample(1:4,1,replace=T),2,sample(1:4,1,replace=T),1,sample(1:4,1,replace=T),3)
rep.row<-function(x,n){matrix(rep(r1,each=100),nrow=100)}
rp <- rep.row(r1)
あなたは私を助けることができます？ありがとうございます、