আপনার কাছে একতরফা, সঠিক বিকল্প অনুমান যেখানে পি 1 = 0.001 এবং পি 0 = 0 ।p1>p0p1=0.001p0=0
- প্রথম পদক্ষেপটি সাফল্যের সংখ্যার জন্য একটি প্রান্তিক চিহ্নিত করা যাতে আকার n এর নমুনায় কমপক্ষে সি সাফল্য পাওয়ার সম্ভাবনা নাল অনুমানের (প্রচলিতভাবে α = 0.05 ) অধীনে খুব কম থাকে । আপনার ক্ষেত্রে, গ = 1 , আপনার বিশেষ জন্য পছন্দের নির্বিশেষে এন ⩾ 1 এবং α > 0 ।ccnα=0.05c=1n⩾1α>0
- দ্বিতীয় ধাপটি হ'ল বিকল্প অনুমানের অধীনে সাইজের এন এর নমুনায় কমপক্ষে সাফল্য পাওয়ার সম্ভাবনা সন্ধান করা - এটি আপনার শক্তি। এখানে, আপনার একটি নির্দিষ্ট এন দরকার যা দ্বিপদী বিতরণ বি ( এন , পি 1 ) সম্পূর্ণরূপে নির্দিষ্ট করা আছে।cnnB(n,p1)
আর এর দ্বিতীয় ধাপটি :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.5 . পাওয়ার পাওয়ার জন্য আপনার কমপক্ষে এর একটি নমুনা আকারের প্রয়োজন ।6930.5