pwr.chisq.test error in R

Question

我现在正在尝试估计网站转换率的A/B测试所需的样本量。pwr.chisq.test总是给我错误消息，当我的转换率值较小时：

# conversion rate for two groups
p1 = 0.001
p2 = 0.0011
# degree of freedom
df = 1
# effect size
w = ES.w1(p1,p2)
pwr.chisq.test(w,
               df = 1,
               power=0.8,
               sig.level=0.05)
**Error in uniroot(function(N) eval(p.body) - power, c(1 + 1e-10, 1e+05)) : 
  f() values at end points not of opposite sign**

但是，如果我对P1和P2具有更大的价值，则此代码正常。

# conversion rate for two groups
p1 = 0.01
p2 = 0.011
# degree of freedom
df = 1
# effect size
w = ES.w1(p1,p2)
pwr.chisq.test(w,
               df = 1,
               power=0.8,
               sig.level=0.05)

chi平方计算

      w = 0.01
      N = 78488.61
     df = 1   sig.level = 0.05
  power = 0.8

注意：n是观测的数量

Answer 1

我认为对此有一个"数值"解释。如果您查看该函数的代码，您会看到示例数量由uniroot计算，并且应该属于其边界设置为1e-10和1e5的间隔。错误消息指出，此间隔不会给您结果：在您的情况下，上限太小。

知道这一点，我们可以简单地进行更广泛的间隔：

w <- 0.00316227766016838
k <- qchisq(0.05, df = 1, lower = FALSE)
p.body <- quote(pchisq(k, df = 1, ncp = N * w^2, lower = FALSE))
N <- uniroot(function(N) eval(p.body) - 0.8, c(1 + 1e-10, 1e+7))$root

"解决方案"是 N=784886.1 ...那是巨大的观察数。