คุณมีด้านเดียวสมมติฐานทางเลือกที่แน่นอนที่และ0 p 1 = 0.001 p 0 = 0p1>p0p1=0.001p0=0
- ขั้นตอนแรกคือการระบุขีด จำกัดสำหรับจำนวนความสำเร็จเช่นว่าโอกาสที่จะได้รับความสำเร็จอย่างน้อยในตัวอย่างของขนาดต่ำมากภายใต้สมมติฐานว่าง (ตามอัตภาพ ) ในกรณีของคุณโดยไม่คำนึงถึงในการเลือกของคุณโดยเฉพาะสำหรับและ0ccnα=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.50.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