Nothing
open01 <- function (p, B) {
## map pvalue to open interval (0, 1)
(p + 1/(2*B))/(1 + 1/B)
}
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.