R/print.simplsca.R

In plsdepot: Partial Least Squares (PLS) Data Analysis Methods

#' @method print simplsca
#' @export
print.simplsca <-
function(x,...)
{       
  cat("\nSIMPLS Canonical Analysis\n")
  cat(rep("-",41), sep="")
  cat("\n$x.scores   ", "X-scores (T-components)")
  cat("\n$x.wgs      ", "X-weights")
  cat("\n$y.scores   ", "Y-scores (U-components)")
  cat("\n$y.wgs      ", "Y-weights")
  cat("\n$cor.xt     ", "X,T correlations")
  cat("\n$cor.yu     ", "Y,U correlations")
  cat("\n$cor.xu     ", "X,U correlations")
  cat("\n$cor.yt     ", "Y,T correlations")
  cat("\n$cor.tu     ", "T,U correlations")
  cat("\n$R2X        ", "explained variance of X by T")
  cat("\n$R2Y        ", "explained variance of Y by T\n")
  cat(rep("-",41), sep="")
  cat("\n\n")
  invisible(x)
}