R/print.tam.linking.R

In TAM: Test Analysis Modules

## File Name: print.tam.linking.R
## File Version: 0.03

print.tam.linking <- function(x, ...)
{
    object <- x
    type <- object$type
    if (type=="Hae"){ cat("Haebara Linking Method")}
    if (type=="SL"){ cat("Stocking Lord Linking Method")}
    tam_print_call(object$CALL)
    cat( "\nTransformation Constants for Item Parameters\n" )
    obji <- object$trafo_items
    obji <- round(obji,3)
    print(obji)
}