R/summary_tamaan_item_parameters.R

In TAM: Test Analysis Modules

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

#########################################################################
# item parameters
summary_tamaan_item_parameters <- function(object)
{
    cat("------------------------------------------------------------\n")
    cat("Item Parameters -A*Xsi\n")
    obji <- object$item
    tam_round_data_frame_print(obji=obji, from=2, to=ncol(obji), digits=3)
    # print xsi parameters if
    if( ! is.null( object$formulaA)  ){
        cat("\nItem Facet Parameters Xsi\n")
        obji <- object$xsi.facets
        tam_round_data_frame_print(obji=obji, from=3, to=ncol(obji), digits=3)
    }
    if (( object$maxK > 2 ) | ( object$printxsi) ){
        cat("\nItem Parameters Xsi\n")
        obji <- object$xsi
        tam_round_data_frame_print(obji=obji, from=1, to=ncol(obji), digits=3)
    }

    cat("------------------------------------------------------------\n")
    if (( object$maxK > 2 ) | ( object$printxsi) ){
        cat("\nItem Parameters Xsi\n")
        obji <- object$xsi
        tam_round_data_frame_print(obji=obji, from=1, to=ncol(obji), digits=3)
    }
    #-- gammaslope
    cat("\nGammaslope Parameters\n")
    obji <- object$gammaslope
    tam_round_data_frame_print(obji=obji, digits=3)

    #-- guessing
    cat("\nGuessing Parameters\n")
    obji <- object$item$guess
    names(obji) <- colnames(object$resp)
    tam_round_data_frame_print(obji=obji, digits=3)
}
###################################################################################