Tiene una hipótesis alternativa exacta unilateral donde y . p 1 = 0.001 p 0 = 0p1>p0p1=0.001p0=0
- El primer paso es identificar un umbral para el número de éxitos, de modo que la probabilidad de obtener al menos éxitos en una muestra de tamaño sea muy baja bajo la hipótesis nula (convencionalmente ). En su caso, , independientemente de su elección particular para y .ccnα=0.05c=1n⩾1α>0
- El segundo paso es averiguar la probabilidad de obtener al menos éxitos en una muestra de tamaño bajo la hipótesis alternativa: este es su poder. Aquí, necesita una fija tal que la distribución binomial esté completamente especificada.cnnB(n,p1)
El segundo paso en 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
Para tener una idea de cómo cambia la potencia con el tamaño de la muestra, puede dibujar una función de potencia:
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 desea saber qué tamaño de muestra necesita para alcanzar al menos una potencia especificada previamente, puede usar los valores de potencia calculados anteriormente. Digamos que quieres un poder de al menos .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
Por lo tanto, necesita un tamaño de muestra de al menos para lograr una potencia de .6930.5