R/print.cec.R

Defines functions print.cec

Documented in print.cec

#' @title Printing Cross Entropy Clusters
#' 
#' @description Print objects of class \code{\link{cec}}.
#' 
#' @param x An object produced by \code{\link{cec}}.
#' 
#' @param ... Ignored. 
#' 
#' @return This function returns nothing.
#' 
#' @seealso \code{\link{cec}}, \code{\link{plot.cec}}
#' 
#' @keywords print
#' 
#' @examples
#' ## See the examples provided with the cec() function.
#' 
#' @export 
print.cec <- function(x, ...) {
    cat("CEC clustering result: \n")
    cat("\nProbability vector:\n")
    print(x$probability)
    cat("\nMeans of clusters:\n")
    print(x$centers)
    cat("\nCost function:\n")
    print(x$cost)  
    cat("\nNumber of clusters:\n")
    print(x$nclusters)  
    cat("\nNumber of iterations:\n")
    print(x$iterations)
    cat("\nComputation time:\n")
    print(x$time)
    cat("\nAvailable components:\n")
    print(c("data", "cluster", "probabilities", "centers", "cost.function", 
            "nclusters", "iterations", "covariances", "covariances.model", "time"))
}

Try the CEC package in your browser

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

CEC documentation built on Dec. 28, 2022, 2:53 a.m.