print.mmlta <- function(x){
cat("Log-Likelihood:\n")
print(x$LL$`Table of LL (G-H Quadrature correction)`)
cat("BIC:\n")
print(x$BIC$`Table of BIC Results`)
print(x$BIC$`Model Selection`)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.