Nothing
adaptive.st=function(sorted,q,m,lambda){
#Stage I- estimating m0
r=sum(sorted<=lambda)
m0=(m-r+1)/(1-lambda)
#Stage II- calling bh with estimated m0
output=bh(sorted=sorted,q=q,m0=m0,m=m)
output$Pvals[['adjusted.pvals']]=bh.adjust(sorted,m=m,m0=m0)
output$Pvals[['rejected']]=output$Pvals[['rejected']]*(output$Pvals[['original.pvals']]<=lambda)
return(output)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.