Hai un'ipotesi alternativa esatta unilaterale dove e . p 1 = 0,001 p 0 = 0p1>p0p1=0.001p0=0
- Il primo passo è identificare una soglia per il numero di successi in modo tale che la probabilità di ottenere almeno successi in un campione di dimensione sia molto bassa sotto l'ipotesi nulla (convenzionalmente ). Nel tuo caso, , indipendentemente dalla tua particolare scelta per e .ccnα=0.05c=1n⩾1α>0
- Il secondo passo è scoprire la probabilità di ottenere almeno successi in un campione di dimensione sotto l'ipotesi alternativa: questo è il tuo potere. Qui, hai bisogno di una fissa tale che la distribuzione binomiale sia completamente specificata.cnnB(n,p1)
Il secondo passo in R con :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
Per avere un'idea di come cambia la potenza con la dimensione del campione, è possibile disegnare una funzione di potenza:

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)
Se si desidera sapere quali dimensioni del campione sono necessarie per ottenere almeno una potenza predefinita, è possibile utilizzare i valori di potenza calcolati sopra. Supponiamo che tu voglia una potenza di almeno .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
Quindi hai bisogno di una dimensione del campione di almeno per raggiungere una potenza di .6930.5