R/fishersMethod.r

In lashmore/MolEndoMatch: Molecular Endophenotype Patient Matchmaking

#' Fisher's Combined P-value
#'
#' Fischer's combined p-value, used to combine the results of individual statistical tests into an overall hypothesis.
#' @param x - A vector of floating point numbers.
#' @export fishersMethod
#' @examples
#' fishersMethod(c(0.2,0.1,0.3))
#' > 0.1152162
fishersMethod <- function(x) {
  return (pchisq(-2 * sum(log(x)),df=2*length(x),lower=FALSE))
}