R/summary.tam.linking.R

In alexanderrobitzsch/TAM: Test Analysis Modules

## File Name: summary.tam.linking.R
## File Version: 0.159

summary.tam.linking <- function( object, file=NULL, ...)
{

    tam_osink( file=file)

    cat("------------------------------------------------------------\n")

    #- package and R session
    tam_print_package_rsession(pack="TAM")

    cat( paste0("Linking of ", object$NS, " Studies\n") )
    tam_print_call(object$CALL)

    #- computation time
    tam_print_computation_time(object=object)

    type <- object$type
    cat("method","=", object$method, "\n")
    cat("type","=", type, " | ")
    if (type=="Hae"){ cat("Haebara Linking Method\n")}
    if (type=="RobHae"){
        cat("Robust Haebara Linking Method:")
        cat(" pow","=", object$pow_rob_hae, "|")
        cat(" eps","=", object$eps_rob_hae, "")
    }
    if (type=="SL"){ cat("Stocking Lord Linking Method\n")}

    cat("\n------------------------------------------------------------\n")
    cat( "Number of Linking Items\n" )
    obji <- object$N_common
    print(obji)

    cat("------------------------------------------------------------\n")
    cat( "Transformation Constants for Item Parameters\n" )
    obji <- object$trafo_items
    obji <- round(obji,3)
    print(obji)

    cat("------------------------------------------------------------\n")
    cat( "Transformation Constants for Person Parameters\n" )
    obji <- object$trafo_persons
    obji <- round(obji,3)
    print(obji)

    cat("------------------------------------------------------------\n")
    cat( "Means and Standard Deviations of Studies \n" )
    obji <- object$M_SD
    obji <- round(obji,3)
    print(obji)

    #******
    tam_csink(file=file)

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