Nothing
# LRT calculation
O <- golfballs; O
E <- rep(486/4,4); E
G <- 2 * sum ( O * log(O/E)); G # lrt Goodness of fit statistic
1 - pchisq(G,df=3)
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.