Nothing
# finding the "other side" by inspection:
dbinom(16,50,1/6);
rbind(0:4,dbinom(0:4,50,1/6));
# this should match the p-value from binom.test()
pbinom(1,50,1/6) + 1 - pbinom(15,50,1/6);
# letting R automate finding the interval too:
probs <- dbinom(0:50,50,1/6); sum(probs[probs <= dbinom(16,50,1/6)])
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.