Nothing
plot_pvalues <-
function(p) {
n <- length(p)
o <- ordered_values(n)
plot(o, -log(p[order(p, decreasing = TRUE)]), xlab = "Expected values", ylab = "-log(p)")
}
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.