getSigma <-
function(object,burnin=0,thin=1){
xx = object$draws$VarZ
nn = length(xx)
sel = seq((burnin+1),nn,thin)
newSigma = lapply(sel,function(ss) xx[[ss]])
return(newSigma)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.