R/print.cca.R

`print.cca` <-
function(x, ...){
   cat("\nCanonical Correlation Analysis\n\n")
   #Show the correlations
   cat("Canonical Correlations:\n")
   print(x$corr)
   #Show the coefficients
   cat("\nX Coefficients:\n")
   print(x$xcoef)
   cat("\nY Coefficients:\n")
   print(x$ycoef)
   #Structural correlations
   cat("\nStructural Correlations (Loadings) - X Vars:\n")
   print(x$xstructcorr)
   cat("\nStructural Correlations (Loadings) - Y Vars:\n")
   print(x$ystructcorr)
   cat("\nAggregate Redundancy Coefficients (Total Variance Explained):\n")
   cat("\tX | Y:",x$xrd,"\n")
   cat("\tY | X:",x$yrd,"\n")
   cat("\n")
}

Try the yacca package in your browser

Any scripts or data that you put into this service are public.

yacca documentation built on May 1, 2019, 10:03 p.m.