R/lam_print_summary_ic_penalty.R

In LAM: Some Latent Variable Models

Defines functions lam_print_summary_ic_penalty

## File Name: lam_print_summary_ic_penalty.R
## File Version: 0.04

lam_print_summary_ic_penalty <- function(ic, crit, digits)
{
    res <- round( ic[[crit]] - ic$deviance, digits)
    return(res)
}

Try the LAM package in your browser