R/xxirt_ic.R

Defines functions xxirt_ic

## File Name: xxirt_ic.R
## File Version: 0.191


#-- information criteria xxirt
xxirt_ic <- function( dev, N, par_items, par_Theta, I, par_items_bounds, np_item=NULL )
{
    # Information criteria
    ic <- list( deviance=dev, n=N, I=I )
    ic$np.items <- sum(par_items_bounds$active)
    if ( ! is.null(np_item) ){
        ic$np.items <- np_item
    }
    ic$np.Theta <- length(par_Theta)
    ic <- xxirt_ic_compute_criteria(ic=ic)
    return(ic)
}
alexanderrobitzsch/sirt documentation built on March 18, 2024, 1:29 p.m.