#' @S3method print interbat
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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.