R/print.tam.R

In alexanderrobitzsch/TAM: Test Analysis Modules

## File Name: print.tam.R
## File Version: 9.11

##############################################
# print method for TAM
print_tam <- function( x, ...)
{
    object <- x
    cat( tam_packageinfo("TAM"), "\n" )
    # print Call
    tam_print_call(object$CALL)

    cat("Multidimensional Item Response Model in TAM \n")

    cat( "\nDeviance=", round( object$deviance, 2 ), " | " )
    cat( "Log Likelihood=", round( -object$deviance/2, 2 ), "\n" )
    cat( "Number of persons used=", object$ic$n, "\n" )
    cat( "Number of estimated parameters=", object$ic$Npars, "\n" )

    cat( "AIC=", round( object$ic$AIC, 0 ), "\n" )
    cat( "BIC=", round( object$ic$BIC, 0 ), "\n" )
}
#########################################################################

print.tam.mml <- print_tam
# print.tam.mml.2pl <- print_tam
print.tam.mml.3pl <- print_tam
# print.tam.mml.mfr <- print_tam
print.tam.latreg <- print_tam
print.tamaan <- print_tam
print.tam <- print_tam