Nothing
#' @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"))
}
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.