R/var_ratio.R

In cnfoley/Sun-et-al-2021-protein-coding-variants-in-human-disease: Computing and predicting gains in power owing to allelic heterogenity between population cohorts

#' Ratio of variance of binomial RVs
#'
#' @param p1 maf study 1
#' @param p2 maf study 2
#' @return Returned is denominator of IVW-uplift.
#' @export
var_ratio = function(p1, p2){
  return(p1*(1-p1)/(p2*(1-p2)))
}