AIC_MCDS <- function(x){
  w1 <- grep("LnL",x)
  w2 <- grep("BIC",x)
  
  ans <- dtable(x,char=c(w1,w2), nbcol=2)
  res <- as.numeric(ans[,2])
  names(res) <- ans[,1]
  return(res)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.