R/tam_wle_print_general.R

In TAM: Test Analysis Modules

## File Name: tam_wle_print_general.R
## File Version: 0.06


#**********************************************************************
tam_wle_print_general <- function( ndim, nobs, CALL )
{
    #*** print output with general information
    cat("Object of class 'tam.wle'\nCall: ")
    print( CALL )
    if (ndim==1){
        D0 <- ""
    } else {
        D0 <- "s"
    }
    v1 <- paste0("\n  WLEs for ", nobs, " observations and ",
            ndim, " dimension", D0, "\n")
    cat(v1)
}