R/stat.fishersMethod.r

In CTD: A Method for 'Connecting The Dots' in Weighted Graphs

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