P 1 = 0.001 ve p 0 = 0 olduğu tek taraflı, tam alternatif hipoteziniz var .p1>p0p1=0.001p0=0
- ccnα=0.05c=1α > 0n⩾1α>0
- İkinci adım, alternatif hipotez altında boyutunda bir örnekte en az başarı elde etme olasılığını bulmaktır - bu sizin gücünüzdür. Burada, Binom dağılımı tam olarak belirtilecek şekilde sabit bir ihtiyacınız vardır .n n B ( n , p 1 )cnnB(n,p1)
R'deki ile ikinci adım :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
Gücün örneklem büyüklüğü ile nasıl değiştiği hakkında bir fikir edinmek için bir güç işlevi çizebilirsiniz:
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)
En az önceden belirlenmiş bir güce ulaşmak için hangi örnek boyutuna ihtiyacınız olduğunu bilmek istiyorsanız, yukarıda hesaplanan güç değerlerini kullanabilirsiniz. En az bir güç istediğinizi .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
Bu nedenle güce ulaşmak için en az örnek boyutuna ihtiyacınız vardır .0,56930.5