Nothing
`adjustment` <-
function (rpval,type = c("BH", "BY","Bonferroni", "Holm", "Hochberg", "SidakSS", "SidakSD"))
{
if(length(rpval)==1){
return(rpval)
} else{
res <- mt.rawp2adjp(rpval, type)
adjp <- res$adjp[order(res$index), ]
return(adjp)
}
}
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.