私はこれを代数的に(またはそれが綴られていますが)気にしません。
次の場合に注意してください
Z = diff(p) / se(p)
それから
0 = diff(p) / se(p) - Z
その後uniroot、関数が作業を行います。以外のすべての値を指定しp2、uniroot0 に解決される値を探します。
zdiff <- function(p2, p1, n1, n2, alpha = 0.025)
{
((p1 - p2) - 0) / sqrt(p1 * (1-p1) / n1 + p2 * (1-p2) / n2) - qnorm(alpha, lower.tail = FALSE)
}
uniroot(f = zdiff,
p1 = .5, n1 = 50, n2= 50,
interval = c(0, 1))
$root
[1] 0.311125
$f.root
[1] -1.546283e-06
$iter
[1] 5
$init.it
[1] NA
$estim.prec
[1] 6.103516e-05
したがって、サンプル サイズが 50 で p1 = .5 の場合、両側アルファ = 0.05 レベルで統計的に有意な結果を生成するには、p2 を 0.311125 未満にする必要があります。