Nothing
## File Name: tam_summary_print_ic_one_ic.R
## File Version: 0.153
tam_summary_print_ic_one_ic <- function(ic, crit, digits_ic=0, digits_penalty=2)
{
ic_val <- ic[[ crit ]]
deviance <- ic$deviance
penalty <- ic_val - deviance
nc <- nchar(crit)
ic_label <- paste0( crit, rep( "", 4 - nc), collapse="")
crit_desc <- tam_summary_print_ic_description(crit=crit)
lab1 <- paste0(" | penalty", "=", round( penalty, digits_penalty))
if (crit=="GHP"){
digits_ic <- 5
penalty <- NA
lab1 <- ""
}
cat( ic_label, "=", round( ic_val, digits_ic), lab1,
" |", crit_desc, "\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.