为了计算置信区间，我使用了不同的公式，唯一可能给我一个合理结果的就是这个。
ci.lower <- (2 * n * p + z^2 - z * sqrt(z^2 - 4 * n * p * (1 - p) + 4 * (n * p + (z^2 / 4)))) / (2 * (n + z^2))
ci.upper <- (2 * n * p + z^2 + z * sqrt(z^2 - 4 * n * p * (1 - p) + 4 * (n * p + (z^2 / 4)))) / (2 * (n + z^2))
我以为这是Cole的Agresti方法，但是用库计算的时候，Cole的Agresti的结果不一样。请告诉我这个公式对应于哪种方法。谢谢。
计算置信区间，我使用了不同的公式，唯一可能给我一个合理结果的是这个。