Udate clopper pearson documentation

Author: statasaurus

R/prop_ci.R

@@ -164,9 +164,8 @@ ci_prop_wilson <- function(x, conf.level = 0.95, correct = FALSE, data = NULL) {
 #'
 #' @details
 #' \deqn{
-#' \left( \frac{k}{n} \pm z_{\alpha/2} \sqrt{\frac{\frac{k}{n}(1-\frac{k}{n})}{n} +
-#' \frac{z^2_{\alpha/2}}{4n^2}} \right)
-#' / \left( 1 + \frac{z^2_{\alpha/2}}{n} \right)}
+#' \left(1 + \frac{N-n+1}{nF[\frac{\alpha}{2};2n,2(N-n+1)]} \right)^{-1}
+#' / \left( 1 + \frac{N-n}{(n+1)F[1-\frac{\alpha}{2};2(n+1),2(N-n)]} \right)^{-1}}
 #'
 #' @return An object containing the following components:
 #'