## 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.