Nothing
context("Hierarchical Beta")
test_that("",{
testData <- replicate(3, rbeta(100, 3, 6), simplify = FALSE)
dp <- DirichletProcessHierarchicalBeta(testData, 1, gammaPriors = c(2, 0.01))
})
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.