R/print.gdina.R

In alexanderrobitzsch/CDM: Cognitive Diagnosis Modeling

## File Name: print.gdina.R
## File Version: 0.10
################################################################################
# print method class gdina                                  #
################################################################################
print.gdina <-
function(x, ... ){
    cat("Estimation of GDINA 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=", ncol(x$q.matrix), "\n") )
    cat(paste0("Number of skill classes=", nrow(x$attribute.patt), "\n") )
    cat(paste0("Number of parameters=", x$Npars, "\n") )
    cat(paste0("  # item parameters=", x$Nipar, "\n") )
    cat(paste0("  # skill distribution parameters=",
                x$Nskillpar, "\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)
}