R/each.Fisher.test.R

each.Fisher.test <-
function (p) 
{
    Xsq <- -2 * sum(log(p))
    pval <- 1 - pchisq(Xsq, df = 2 * length(p))
    return(pval)
}

Try the metaSeq package in your browser

Any scripts or data that you put into this service are public.

metaSeq documentation built on Nov. 8, 2020, 7:26 p.m.