R/print.gdm.R

In alexanderrobitzsch/CDM: Cognitive Diagnosis Modeling

## File Name: print.gdm.R
## File Version: 0.09
################################################################################
# print method class gdm
################################################################################
print.gdm <-
function(x, ... ){
    cat("Estimation of general diagnostic model\n\n")

    d1 <- utils::packageDescription("CDM")
    cat( paste( d1$Package, " ", d1$Version, " (", d1$Date, ")", sep=""), "\n" )

    cat("\nCall:\n", paste(deparse(x$call), sep="\n", collapse="\n"),
                "\n\n", sep="")
    #*** parameters
    cat(paste0("Number of cases=", x$N, "\n") )
    cat(paste0("Number of groups=", x$G, "\n") )
    cat(paste0("Number of items=", ncol(x$data), "\n") )
    cat(paste0("Number of skill dimensions=", dim(x$Qmatrix)[3], "\n") )
    cat(paste0("Number of skill classes=", nrow(x$pi.k), "\n") )
    cat(paste0("Number of estimated parameters=", x$Npars, "\n") )
    cat(paste0("  # item parameters=", x$ic$itempars, "\n") )
    cat(paste0("  # skill distribution parameters=",
                x$ic$traitpars, "\n") )
    #*** likelihood
    cat( paste0( "\nLog-Likelihood=", round( x$loglike,2 ), "\n") )
    #*** information criteria
    cat( paste0( "AIC=", round( x$AIC,0 ), "\n") )
    cat( paste0( "BIC=", round( x$BIC,0 ), "\n") )
    invisible(x)
}