R/printfuzzy.R

In rcmdrfuzzyclust: R Commander Plug-in for Fuzzy Clustering Methods (Fuzzy C-Means and Gustafson Kessel)

#' @export
print.fuzzyclust<-function(x,...){
  cat("Call:\n")
  print(x$call)
  cat("\nObjective Function:",x$func.obj)
  cat("\nfuzzifier:",x$m)
  cat("\nCentroid:\n")
  print(x$V)
  cat("\nCluster Label:\n")
  print(x$Clust.desc[,ncol(x$Clust.desc)])

}