Nothing
#' @export print.hclustvar
#' @export
#' @name print.hclustvar
#' @title Print a 'hclustvar' object
#' @description This is a method for the function print for objects of the class \code{hclustvar}.
#' @param x An object of class \code{hclustvar} generated by the function \code{\link{hclustvar}}.
#' @param \dots Further arguments to be passed to or from other methods. They are ignored in this function.
#' @keywords internal
#'
print.hclustvar <- function(x, ...){
if (!inherits(x, "hclustvar"))
stop("use only with \"hclustvar\" objects")
cat("\nCall:\n", deparse(x$call), "\n\n", sep = "")
cat("\n")
p <- x$rec$p
p1 <- x$rec$p1
p2 <- p-p1
if ((p1!=0)&& (p2==0)) {
cat(paste("number of variables: ",p1),sep=" ")
cat("\n")
}
if ((p1==0)&& (p2!=0)) {
cat(paste("number of variables: ",p2),sep=" ")
cat("\n")
}
if ((p1!=0)&& (p2!=0)) {
cat(paste("number of variables: ",p),sep=" ")
cat("\n")
cat(paste(" number of numerical variables: ",p1),sep=" ")
cat("\n")
cat(paste(" number of categorical variables: ",p2),sep=" ")
cat("\n")
}
n <- x$rec$n
cat(paste("number of objects: ",n),sep=" ")
cat("\n")
cat("\n")
cat("available components: ")
res <- c("height","clusmat","merge")
names(res) <- rep("",3)
cat(res)
cat("\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.