Nothing
List2Vec <- function (theta) {
Bsigma <- theta$Bsigma
Bsigma <- if (is.matrix(Bsigma)) Bsigma[lower.tri(Bsigma, diag = TRUE)] else Bsigma
para <- c(theta$beta, theta$phi, theta$alpha, theta$Ysigma, Bsigma)
return(para)
}
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.