是否可以從總體中生成 10 個樣本並重復該抽樣 1000 次？

Question

我正在嘗試從人群中隨機抽取 10 個人並重復 1000 次。 這可能嗎？ 到目前為止，這是我的代碼，我不太確定我是否走在正確的軌道上。 我不斷收到錯誤“要替換的項目數不是替換長度的倍數”。

這是我的代碼：

B<-1000
for (i in 1:B){

  FR3_Acropora_Sample[i]<-(sample(FR3_Acropora$Ratio,size=10,replace=TRUE))

}

Answer 1

考慮replicate （包裝到sapply ）：

# MATRIX
sample_matrix <- replicate(B, sample(FR3_Acropora$Ratio, size=10, replace=TRUE))

# LIST
sample_list <- replicate(B, sample(FR3_Acropora$Ratio, size=10, replace=TRUE),
                         simplify = FALSE)

Answer 2

我相信您可以按以下方式完成此操作。 我創建了一個數字 1 到 50 的樣本數據集——當然你會跳過這一步。 我初始化了一個長度為 100 的列表向量。我從 1 循環到 100，並選擇一個隨機樣本分配給向量中的每個空白空間。 然后我可以使用sampleList[[x]]訪問任何樣本，其中 x 是 1 到 100 之間的任意數字。

x <- c(1:50)

sampleList <- vector(mode="list", length=100)

for (i in 1:100) {
sampleList[[i]] = sample(x, size = 10, replace = TRUE)
}

使用你的變量名，這看起來像：

B<-1000
FR3_Acropora_Sample <- vector(mode="list", length=1000)
for (i in 1:B){

  FR3_Acropora_Sample[[i]]=sample(FR3_Acropora$Ratio,size=10,replace=TRUE)

}