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