आपके पास एक तरफा, सटीक वैकल्पिक परिकल्पना जहां और । पी 1 = 0.001 पी 0 = 0p1>p0p1=0.001p0=0
- पहला कदम सफलताओं की संख्या के लिए थ्रेशोल्ड पहचान करना है, ताकि आकार नमूने में कम से कम सफलताओं को प्राप्त करने की संभावना शून्य परिकल्पना (पारंपरिक रूप से ) के तहत बहुत कम हो । आपके मामले में, , और लिए आपकी विशेष पसंद की परवाह किए बिना ।ccnα=0.05c=1α > 0n⩾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
तो आपको शक्ति प्राप्त करने के लिए कम से कम एक नमूना आकार की आवश्यकता है ।0.56930.5