-4

サイズ 200 の元のデータ セットからの置換によるサンプリング。各値の頻度を計算し、ゼロを発生しない値に割り当てます。プロセスを 10 回繰り返し、結果を Matrix に格納します。

4

1 に答える 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 に答える