Nothing
priorcontrol.dpm <-
function(m0 = NA, S0 = NA, a = 2, b = NA, alpha = 1, L = 10)
list(m0 = m0, S0 = S0, a = a, b = b, alpha = alpha, L = L)
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.