У вас есть односторонняя, точная альтернативная гипотеза где и . p 1 = 0,001 p 0 = 0p1>p0p1=0.001p0=0
- Первым шагом является определение порога для количества успехов, так что вероятность получить по меньшей мере успехов в выборке размера очень мала при нулевой гипотезе (условно ). В вашем случае , независимо от вашего конкретного выбора для и .ccnα=0.05c=1n⩾1α>0
- Второй шаг - выяснить вероятность получения не менее успехов в выборке размера согласно альтернативной гипотезе - это ваша сила. Здесь вам нужно фиксированное такое, чтобы биномиальное распределение полностью указано.cnnB(n,p1)
Второй шаг в R с :n=500
> n <- 500 # sample size
> p1 <- 0.001 # success probability under alternative hypothesis
> cc <- 1 # threshold
> sum(dbinom(cc:n, n, p1)) # power: probability for cc or more successes given p1
[1] 0.3936211
Чтобы понять, как мощность изменяется в зависимости от размера выборки, вы можете нарисовать функцию мощности:
nn <- 10:2000 # sample sizes
pow <- 1-pbinom(cc-1, nn, p1) # corresponding power
tStr <- expression(paste("Power for ", X>0, " given ", p[1]==0.001))
plot(nn, pow, type="l", xaxs="i", xlab="sample size", ylab="power",
lwd=2, col="blue", main=tStr, cex.lab=1.4, cex.main=1.4)
Если вы хотите узнать, какой размер выборки необходим для достижения хотя бы предварительно определенной мощности, вы можете использовать значения мощности, рассчитанные выше. Скажем, вы хотите мощность не менее .0.5
> powMin <- 0.5
> idx <- which.min(abs(pow-powMin)) # index for value closest to 0.5
> nn[idx] # sample size for that index
[1] 693
> pow[idx] # power for that sample size
[1] 0.5000998
Таким образом, вам нужен размер выборки не менее чтобы получить мощность .6930.5