## 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)
}
###################################################################################
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.