Как избавиться от ошибки не может найти функцию do () в R

Question

Я делаю bootstrap выборку. Я использую следующий код:

RNGkind(sample.kind = "Rejection")
set.seed(7377)
B = do(1000)*mean(resample(c(rep(1,258),rep(0,352-258)),352))

Но получаю следующую ошибку: Ошибка в do (1000): не удалось найти функцию "do"

Answer 1

Вы, вероятно, хотите replicate.

Однако при replace=FALSE, по умолчанию для gdata::resample, ваш образец всегда будет иметь одинаковое среднее значение. Я предлагаю вам добавить replace=TRUE к вашей resample команде:

library(gdata)
set.seed(7377)

B <- replicate(1000, mean(resample(x=c(rep(1,258), rep(0,352-258)), size=352, replace=TRUE)))
B

#[1] 0.6988636 0.7386364 0.7187500 0.7698864 0.7329545 0.7244318