Answers:
您有一个单边的精确替代假设,其中p 1 = 0.001和p 0 = 0。
R的第二步,:
> 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)
如果您想知道至少要达到预先指定的功效需要多少样本量,可以使用上面计算的功效值。假设您需要至少。
> 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
因此,您需要至少的样本大小才能达到功效。
pwr.p.test
,对于0.5的功效,您至少需要677个观测值。但是功率= 0.5非常低!
pwr.p.test()
使用正态近似,而不是精确的二项式分布。只需键入pwr.p.test
即可查看源代码。您会找到调用以pnorm()
表明已使用近似值。
您可以使用pwr
R中的软件包轻松回答这个问题。
您将需要定义重要性级别,功效和效果大小。通常,将显着性级别设置为0.05,将功效设置为0.8。更高的功率将需要更多的观察。较低的显着性水平将降低功效。
此包装中使用的比例的效果大小为Cohen's h。小h的截止值通常取为0.20。实际截止值因应用程序而异,在您的情况下可能会更小。h越小,意味着需要进行更多的观察。您说您的选择是。那很小
> ES.h(.001, 0)
[1] 0.0632561
但是我们仍然可以继续。
> pwr.p.test(sig.level=0.05, power=.8, h = ES.h(.001, 0), alt="greater", n = NULL)
proportion power calculation for binomial distribution (arcsine transformation)
h = 0.0632561
n = 1545.124
sig.level = 0.05
power = 0.8
alternative = greater
使用这些值,您至少需要1546个观测值。