R/GSAfisher.default.R

In carlosgarciaprieto/GSAfishercombined: Gene Set Analysis with Fisher Combined Method

Defines functions GSAfisher.default

Documented in GSAfisher.default

GSAfisher.default <-
function(x,...){
  p<-pchisq(-2 * sum(log(x)),df=2*length(x),lower.tail=FALSE)
  return(p)
}