## File Name: mcmc_summary_print_information_criteria.R
## File Version: 0.13
mcmc_summary_print_information_criteria <- function(object)
{
cat( "Number of iterations","=", object$iter, "\n" )
cat( "Number of burnin iterations","=", object$burnin, "\n\n" )
if ( ! is.null(object$description) ){
cat( object$description, "\n")
}
cat("-----------------------------------------------------------------\n")
cat( "Dbar","=", round( object$ic$Dbar, 2 ), "\n" )#, " | " )
cat( "Dhat","=", round( object$ic$Dhat, 2 ), "\n" )#, " | " )
cat( "pD","=", round( object$ic$pD, 2 ), " | pD=Dbar - Dhat \n" )
cat( "DIC","=", round( object$ic$DIC, 2 ), " | DIC=Dhat + pD \n\n" )
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.