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 June 4, 2020, 3:54 a.m.