サイズ 200 の元のデータ セットからの置換によるサンプリング。各値の頻度を計算し、ゼロを発生しない値に割り当てます。プロセスを 10 回繰り返し、結果を Matrix に格納します。
1 に答える
0
あなたはあまり背景を説明しなかったので、ここに私の解釈があります:
## You didn't specify what we were sampling from, so I just took it as all numbers from 1 to 200
x <- 1:200
## Sampled from x in sizes of 50 (because you didn't specify how big), with replacement, 10 times
samp <- list()
for (i in 1:10){
samp[[i]] <- sample(x, size = 50, replace = TRUE)
}
results <- list()
results.mat <- 1:200
for (i in 1:10){
results[[i]] <- table(factor(samp[[i]], levels = 1:200))
results.mat <- cbind(results.mat, results[[i]])
}
View(results.mat)
于 2013-07-18T13:32:16.973 に答える