fix proportion ci calc and theme

2024-08-09 15:05:59 -04:00
parent 4f49ae6d5a
commit 82b8db7f84
18 changed files with 481 additions and 436 deletions
@@ -308,35 +308,8 @@ z_gap_test <- function(a_prop, a_count, b_prop, b_count) {
  return(z)
 }

-# TODO consider making a vectorized version
-# z_gap_test_v <- Vectorize(z_gap_test,
-#                           SIMPLIFY = TRUE)# we only want to return a scalar


-#z_gap_test(a_prop = 0.051, a_count = 2000, b_prop = 0.11, b_count = 100)
-
-
-#' Calculate a univariate z score by comparing to a population
-#'
-#' @param unit_prop proportion for the group we are comparing
-#' @param global_prop the global proportion
-#' @param unit_denom the population size for the group we are comparing
-#'
-#' @return a z-score
-#' @export
-#'
-#' @examples
-#' z_univariate(unit_prop = 0.13, global_prop = 0.11, unit_denom = 2500)
-z_univariate <- function(unit_prop, global_prop, unit_denom) {
-  num <- unit_prop - global_prop
-  denom <- sqrt(
-    (global_prop * (1-global_prop))/unit_denom
-  )
-  z = num / denom
-  return(z)
-
-}
-
 # TODO: Consider vectorizing
 #z_univariate_v <- Vectorize(z_univariate, SIMPLIFY = TRUE)