R/INLA_CritSum.R

In jpablo91/Pabloverse: Custom package for themes, templates and some functions

#' Function to summarise criteria from an INLA model
#' 
#' @param x INLA model to summarise
#' @export
INLA_CritSum <- function(x) {
  d <- data.frame(Model = deparse(substitute(x)), 
                  DIC = x$dic[1], 
                  WAIC = x$waic[1], 
                  CPO = -sum(log(x$cpo$cpo)), 
                  MLIK = x$mlik[1])
  return(d)
}