Nothing
Rand.toys <- do(5000) * rflip(16, .5)
head(Rand.toys, 3)
2 * prop( ~ (prop >= p.hat), data = Rand.toys)
histogram(~prop, data = Rand.toys, width=1/16)
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.