calculate.nulls <- function(pvals, pi0) { which(rank(pvals) > (1-pi0)*length(pvals)) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.