R/IRT_RMSD_summary_print_statistics.R

In alexanderrobitzsch/CDM: Cognitive Diagnosis Modeling

## File Name: IRT_RMSD_summary_print_statistics.R
## File Version: 0.07

IRT_RMSD_summary_print_statistics <- function( stat_summary, stat, digits)
{
    obji <- stat_summary
    NC <- ncol(obji)
    for (gg in 2:NC ){
        obji[,gg] <- round( obji[,gg], digits=digits)
    }
    print( obji )
    cat("\n")
    obji <- stat
    NC <- ncol(obji)
    for (gg in 2:NC ){
        obji[,gg] <- round( obji[,gg], digits=digits)
    }
    print(obji)
}


summary.IRT.RMSD_print_statistics <- IRT_RMSD_summary_print_statistics