Sie haben eine einseitige, exakte Alternativhypothese wobei und . p 1 = 0,001 p 0 = 0p1>p0p1=0.001p0=0
- Der erste Schritt besteht darin, einen Schwellenwert für die Anzahl der Erfolge zu identifizieren, so dass die Wahrscheinlichkeit, mindestens Erfolge in einer Stichprobe der Größe erzielen, unter der Nullhypothese sehr gering ist (herkömmlicherweise ). In Ihrem Fall ist , unabhängig von Ihrer speziellen Wahl für und .ccnα=0.05c=1n⩾1α>0
- Der zweite Schritt besteht darin, die Wahrscheinlichkeit herauszufinden, mit der unter der alternativen Hypothese mindestens Erfolge in einer Stichprobe der Größe erzielt werden können - dies ist Ihre Stärke. Hier benötigen Sie ein festes , sodass die Binomialverteilung vollständig angegeben ist.cnnB(n,p1)
Der zweite Schritt in R mit :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
Um eine Vorstellung davon zu bekommen, wie sich die Leistung mit der Stichprobengröße ändert, können Sie eine Leistungsfunktion zeichnen:
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)
Wenn Sie wissen möchten, welche Stichprobengröße Sie benötigen, um mindestens eine vorgegebene Leistung zu erzielen, können Sie die oben berechneten Leistungswerte verwenden. Angenommen, Sie möchten eine Leistung von mindestens .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
Sie benötigen also eine Stichprobengröße von mindestens , um eine Potenz von .6930.5