Nothing
## File Name: immer_ccml_summary_print_ic.R
## File Version: 0.081
immer_ccml_summary_print_ic <- function(object)
{
cat( 'CLAIC=', round( object$ic$CLAIC, 2 ), ' | penalty=',
round( object$ic$CLAIC - object$ic$dev,2 ),
' | CLAIC=-2*CL + 2*tr(J*H^-1) \n' )
cat( 'CLBIC=', round( object$ic$CLBIC, 2 ), ' | penalty=',
round( object$ic$CLBIC - object$ic$dev,2 ),
' | CLBIC=-2*CL + log(n)*tr(J*H^-1) \n' )
cat('\n')
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.