## File Name: summary.latent.regression.R
## File Version: 0.12
summary.latent.regression <- function( object, ... )
{
cat("\nRegression Parameters\n\n")
.prnum(object$summary.coef,4) # print results
cat( paste( "\nResidual Variance=", round( object$sigma^2, 4 ) ), "\n" )
cat( paste( "Explained Variance=", round( object$explvar, 4 ) ), "\n" )
cat( paste( "Total Variance=", round( object$totalvar, 4 ) ), "\n" )
cat( paste( " R2=", round( object$rsquared, 4 ) ), "\n" )
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.