R/GSAfisher.print.R

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

Defines functions GSAfisher.print

Documented in GSAfisher.print

GSAfisher.print <-
function(x,...){
  p<-pchisq(-2 * sum(log(x)),df=2*length(x),lower.tail=FALSE)
  print.p<-cat("Fisher method combined pvalue", p, "\n")
}