R/fisher.R

Defines functions fisher

##' @export
fisher <- function(aP){
  fisherDf = 2*length(aP)
  S = -2*sum(log(aP))
  return(pchisq(q=S,df=fisherDf,lower.tail=FALSE))
}
Caleb-Huo/genomicLibrary documentation built on May 6, 2019, 9:27 a.m.