getSigmaTheta <- function(optimObject, sigmaThetaExprList) {
sigmaTheta <- evalSigmaThetaExprList(sigmaThetaExprList, as.list(optimObject$par))
return(sigmaTheta)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.