Nothing
##=============================================================================
##' @title Print the CATATIS results
##'
##' @usage
##' \method{print}{catatis}(x, ...)
##'
##' @description
##' Print the CATATIS results
##'
##'
##' @param x object of class 'catatis'
##'
##' @param ... further arguments passed to or from other methods
##'
##'
##'
##' @keywords CATA RATA
##'
##' @seealso \code{\link{catatis}}
##'
##' @export
##=============================================================================
print.catatis=function(x, ...)
{
res.catatis=x
if(inherits(res.catatis, "catatis")==FALSE)
{
stop("The class of the object must be 'catatis'")
}
cat("CATATIS method on binary blocks\n")
cat(paste("number of subjects:",res.catatis$param$nblo, "\n"))
cat(paste("number of products by subject:",res.catatis$param$n, "\n"))
cat(paste("number of attributes by subject:",res.catatis$param$nvar, "\n"))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.