R/print.DistatisR.R

#' Print DistatisR results
#'
#' Print DistatisR results.
#'
#'
#' @param x a list that contains items to make into the DistatisR class.
#' @param ... inherited/passed arguments for S3 print method(s).
#' @author Derek Beaton
#' @return an array with results from the analysis. prints to screen
#' @keywords print
#' @keywords internal
#' @export
print.DistatisR <-
function (x,...) {

  res.distatis <- x
  #dim(testDistatis$res4Splus$PartialF)
  if (!inherits(res.distatis, "DistatisR")) stop ("no convenient data")
  cat("**Results for DiSTATIS**\n")
  cat ("The analysis was performed on ", dim(res.distatis$res4Splus$PartialF)[3],
       "individuals, on", dim(res.distatis$res4Splus$PartialF)[1], "sorted items.\n")
  cat("*The results are available in the following objects:\n\n")

  res <- array("", c(3, 2), list(1:3, c("name", "description")))
  res[1,] <- c("$res4Cmat","Results from the C matrix (see notation)")
  res[2,] <- c("$res4Splus","Results from the S+ matrix (see notation)")
  res[3,] <- c("$compact","a boolean. TRUE if compact results used.")

  print(res)

}

Try the DistatisR package in your browser

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

DistatisR documentation built on Dec. 5, 2022, 9:05 a.m.