R/summary.IRT.RMSD.R

Defines functions summary.IRT.RMSD

Documented in summary.IRT.RMSD

## File Name: summary.IRT.RMSD.R
## File Version: 0.19


#*******************************************************
# Summary
summary.IRT.RMSD <- function( object, file=NULL, digits=3, ... )
{

    osink( file=file, suffix=paste0( "__SUMMARY.Rout") )

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

    G <- object$G

    #-- summary call
    cdm_print_summary_call(object=object)

    cat("-----------------------------------------------------------------------------\n")
    cat("Root Mean Square Deviation (RMSD) \n\n")

    res0 <- IRT_RMSD_summary_print_statistics( stat_summary=object$RMSD_summary,
                stat=object$RMSD, digits=digits)

    cat("-----------------------------------------------------------------------------\n")
    cat("Bias Corrected Root Mean Square Deviation (RMSD) \n\n")

    res0 <- IRT_RMSD_summary_print_statistics( stat_summary=object$RMSD_bc_summary,
                stat=object$RMSD_bc, digits=digits)

    cat("-----------------------------------------------------------------------------\n")
    cat("Mean Absolute Deviation (MAD) \n\n")

    res0 <- IRT_RMSD_summary_print_statistics( stat_summary=object$MAD_summary,
                stat=object$MAD, digits=digits)

    cat("-----------------------------------------------------------------------------\n")
    cat("Mean Deviation (MD) \n\n")

    res0 <- IRT_RMSD_summary_print_statistics( stat_summary=object$MD_summary,
                stat=object$MD, digits=digits)

    csink( file=file )

}
#*******************************************************

Try the CDM package in your browser

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

CDM documentation built on Aug. 25, 2022, 5:08 p.m.