Sims <- (do(400) * ci3(rgamma(20, 1, 1/2))) %>% mutate( status = c("lo", "good", "hi")[1 + (2 <= lo) + (2 < hi)])
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.