R/print.nipals.R

Defines functions print.nipals

#' @method print nipals
#' @export
print.nipals <-
function(x, ...)
{
  cat("\nNIPALS algorithm\n")
  cat(rep("-",34), sep="")
  cat("\n$values    ", "eigenvalues")
  cat("\n$scores    ", "scores (T-components)")
  cat("\n$loadings  ", "loadings")
  cat("\n$cor.xt    ", "X,T correlations")
  cat("\n$disto     ", "distance to origin")
  cat("\n$contrib   ", "contribution of rows")
  cat("\n$cos       ", "squared cosinus")
  cat("\n$dmod      ", "distance to the model\n")
  cat(rep("-",34), sep="")
  cat("\n\n")
  invisible(x)
}

Try the plsdepot package in your browser

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

plsdepot documentation built on April 1, 2023, 12:04 a.m.