Nothing
set.seed(123)
# x <- rdirichlet(10, matrix(rep(1,3), 10, 3))
#
# test_that("ddirichlet works with different input types", {
# expect_equal(rprobdist(0), numeric(0))
#
# })
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.