Nothing
Sims <-
(do(400) * ci3(rgamma(20, 1, 1/2))) %>%
mutate(
status = c("lo", "good", "hi")[1 + (2 <= lo) + (2 < hi)])
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.