R/IRT_modelfit_TAM.R

Defines functions summary.IRT.modelfit.TAM.helper IRT.modelfit.tam.mml IRT_modelfit_TAM

Documented in IRT.modelfit.tam.mml

## File Name: IRT_modelfit_TAM.R
## File Version: 9.122

###########################################################
# general model fit function for TAM objects
IRT_modelfit_TAM <- function( object, mod )
{
    res <- tam.modelfit( object )
    res$IRT.IC <- IRT.IC(object)
    res$objname <- mod
    class(res) <- paste0("IRT.modelfit.", class(object) )
    return(res)
}
###########################################################

###########################################################
# IRT.modelfit for objects of class tam.mml
IRT.modelfit.tam.mml <- function( object, ... )
{
    cl <- paste(match.call())[2]
    res <- IRT_modelfit_TAM( object, mod=cl )
    return(res)
}
IRT.modelfit.tam.mml.3pl <- IRT.modelfit.tam.mml
IRT.modelfit.tamaan <- IRT.modelfit.tam.mml
#####################################################

############################################################
# summary
summary.IRT.modelfit.TAM.helper <- function( object, ... )
{
    cat("Test of Global Model Fit\n")
    obji <- round( object$modelfit.test, 5 )
    print(obji)
    cat("\nFit Statistics\n")
    obji <- object$statlist
    for (vv in seq(1,ncol(obji))){
        obji[,vv] <- round( obji[,vv], 3 )
    }
    print(obji)
}
#################################################################

summary.IRT.modelfit.tam.mml <- summary.IRT.modelfit.TAM.helper
summary.IRT.modelfit.tam.mml.3pl <- summary.IRT.modelfit.TAM.helper
summary.IRT.modelfit.tamaan <- summary.IRT.modelfit.TAM.helper

Try the TAM package in your browser

Any scripts or data that you put into this service are public.

TAM documentation built on May 29, 2024, 2:20 a.m.