Nothing
gf_dist("binom", params = list(size = 20, prob = 0.1)) %>%
gf_dist("norm", params = list(mean = 2, sd = sqrt(0.1 * 0.9 * 20)),
alpha = 0.4) %>%
gf_labs(title = expression(paste("Binomial vs Normal", "(", "n=20", ", " , pi, "= 0.10", ")")))
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.