Nothing
## 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
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.