R/print.statis.R

In ClustBlock: Clustering of Datasets

## =============================================================================


##' @title Print the STATIS results
##'
##' @usage
##' \method{print}{statis}(x, ...)
##'
##' @description
##' Print the STATIS results
##'
##'
##' @param x object of class 'statis'
##'
##' @param ... further arguments passed to or from other methods
##'
##'
##'
##' @keywords quantitative
##'
##' @seealso   \code{\link{statis}}
##'
##' @export


## =============================================================================




print.statis <- function(x, ...) {
  res.statis <- x
  if (inherits(res.statis, "statis") == FALSE) {
    stop("The class of the object must be 'statis'")
  }

  cat("STATIS method on quantitative blocks\n")
  cat(paste("number of blocks:", res.statis$param$nblo, "\n"))
  cat(paste("number of objects:", res.statis$param$n, "\n"))
}