Defines functions print.incanc

Documented in print.incanc

print.incanc <- function(x, ...){
# x 
  cond1 <- !is.null(x$noise[[2]])
  if (cond1){
    cond2 <- length(x$noise[[2]])==0
    if (cond2){
       cat("-- No noise units considered -- \n")
       cat("Noise units: \n", x$noise[[2]], "\n")
   cat ("\n---INCA index to estimate the number of clusters---\n")
   cat ("Clustering method: ", x$method, " \n")                               
   x <- x$INCAindex                                 
   k <- length(x)
   for (i in 2:k){
         cat(" k= ", i,"      ",  format(x[i], digits=2), " \n", sep="")

Try the ICGE package in your browser

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

ICGE documentation built on Oct. 17, 2022, 5:10 p.m.