# 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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.