## File Name: summary_tam_print_latreg_stand.R
## File Version: 0.04
summary_tam_print_latreg_stand <- function(object, digits_stand=4)
{
if ( ! is.null( object$latreg_stand ) ){
cat("------------------------------------------------------------\n")
cat("Standardized Coefficients\n")
tam_round_data_frame_print(obji=object$latreg_stand$beta_stand,
digits=digits_stand, from=3)
cat("\n** Explained Variance R^2\n")
tam_round_data_frame_print(obji=object$latreg_stand$R2_theta,
digits=digits_stand)
cat("** SD Theta\n")
tam_round_data_frame_print(obji=object$latreg_stand$sd_theta,
digits=digits_stand)
cat("** SD Predictors\n")
tam_round_data_frame_print(obji=object$latreg_stand$sd_x,
digits=digits_stand)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.