##' @export fisher <- function(aP){ fisherDf = 2*length(aP) S = -2*sum(log(aP)) return(pchisq(q=S,df=fisherDf,lower.tail=FALSE)) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.