Anda memiliki hipotesis alternatif satu sisi yang tepat p1>p0 mana p1=0.001 dan p0=0 .
- ccnα=0.05c=1n⩾1α>0
- Langkah kedua adalah untuk mengetahui probabilitas untuk mendapatkan setidaknya keberhasilan dalam sampel ukuran bawah hipotesis alternatif - ini adalah kekuatan Anda. Di sini, Anda perlu tetap sehingga distribusi Binomial sepenuhnya ditentukan.n n B ( n , p 1 )cnnB(n,p1)
Langkah kedua dalam R dengan :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
Untuk mendapatkan gambaran bagaimana daya berubah dengan ukuran sampel, Anda dapat menggambar fungsi daya:
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)
Jika Anda ingin tahu ukuran sampel apa yang Anda butuhkan untuk mencapai setidaknya daya yang ditentukan sebelumnya, Anda dapat menggunakan nilai daya yang dihitung di atas. Katakanlah Anda menginginkan kekuatan minimal .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
Jadi, Anda perlu ukuran sampel setidaknya untuk mencapai kekuatan .0,56930.5