R/xxirt_ic_compute_criteria.R

In alexanderrobitzsch/sirt: Supplementary Item Response Theory Models

## File Name: xxirt_ic_compute_criteria.R
## File Version: 0.07

xxirt_ic_compute_criteria <- function(ic, compute_np=TRUE, estimator="ML")
{
    dev <- ic$deviance
    if (compute_np){
        ic$np <- ic$np.item + ic$np.Theta
    }
    if (estimator=='ML'){
        ic$AIC <- dev + 2*ic$np
        log_n <- log(ic$n)
        ic$BIC <- dev + log_n * ic$np
        ic$CAIC <- dev + ( log_n + 1 )*ic$np
        ic$AICc <- ic$AIC + 2*ic$np * ( ic$np + 1 ) / ( ic$n - ic$np - 1 )
    }
    return(ic)
}