У меня есть вектор 0 и 1, где 0 - сбой, а 1 - успех. Используя выборку из этого вектора, я хочу найти наименьшую выборку, чтобы определить вероятность успеха в пределах 0,05 от истинной вероятности. Я хочу быть на 95% уверенным в этом, и я хочу найти наименьший размер выборки n методом проб и ошибок.
N = 30,000
p = 0.1
n is to be minimised such that probability of abs(p-p_estimate) < 0.05 is larger than 95%.
sample(x = c(0, 1), size = N, prob = c(1-p, p), replace = TRUE)
Я думал, что смогу использовать цикл while, но я не знаю, как управлять им так, чтобы он возвращал минимум n. Любая помощь будет оценена