Nothing
"theta" <-
structure(c(5, 5, 5, 5, 5, 2, 2, 2, 2, 2, -6, -6, -6, -6, -6), .Dim = as.integer(c(5,
3)))
"mu" <-
c(5, 2, -6)
"tau" <-
c(20, 20, 20)
"tauC" <-
20
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.