R/print.interbat.R

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

#' @method print interbat
#' @export
print.interbat <-
  function(x,...)
  {       
    cat("\nTucker's Inter-Battery Method\n")
    cat(rep("-",41), sep="")
    cat("\n$values     ", "eigenvalues")
    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 U")
    cat("\n$com.xu     ", "communality of X with U")
    cat("\n$com.yt     ", "communality of Y with T")
    cat("\n$statistic  ", "statistic Phi\n")
    cat(rep("-",41), sep="")
    cat("\n\n")
    invisible(x)
  }