Nothing
simulate <- function(size) {
rdata <- runif(size)
2 * mean(rdata) < max(rdata)
}
mean(replicate(1000, simulate(6)))
mean(replicate(1000, simulate(12)))
mean(replicate(1000, simulate(24)))
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.