R/tam_print_computation_time.R

In TAM: Test Analysis Modules

## File Name: tam_print_computation_time.R
## File Version: 0.02

tam_print_computation_time <- function(object)
{
    cat( "Date of Analysis:", paste(object$time[2]), "\n" )
    cat("Computation time:", print(object$time[2] - object$time[1]), "\n\n")
}