Vous avez une hypothèse alternative exacte unilatérale où et . p 1 = 0,001 p 0 = 0p1>p0p1=0.001p0=0
- La première étape consiste à identifier un seuil pour le nombre de succès tel que la probabilité d'obtenir au moins succès dans un échantillon de taille soit très faible sous l'hypothèse nulle (classiquement ). Dans votre cas, , quel que soit votre choix particulier pour et .ccnα=0.05c=1n⩾1α>0
- La deuxième étape consiste à déterminer la probabilité d'obtenir au moins succès dans un échantillon de taille sous l'hypothèse alternative - c'est votre pouvoir. Ici, vous avez besoin d'un fixe tel que la distribution binomiale soit entièrement spécifiée.cnnB(n,p1)
La deuxième étape de R avec :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
Pour avoir une idée de l'évolution de la puissance avec la taille de l'échantillon, vous pouvez dessiner une fonction de puissance:
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)
Si vous voulez savoir de quelle taille d'échantillon vous avez besoin pour obtenir au moins une puissance prédéfinie, vous pouvez utiliser les valeurs de puissance calculées ci-dessus. Disons que vous voulez une puissance d'au moins .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
Vous avez donc besoin d'un échantillon d'au moins pour atteindre une puissance de .6930.5