R/print.SK.R

In ScottKnott: The ScottKnott Clustering Algorithm

##
## S3 method to print 'SK' object
##

print.SK <- function(x,
                     digits = 2L,
                     ...)
{
  cat('Results\n')
  print(x$out$Result,
        ...)

  cat('\nSig.level\n',
      x$out$Sig.level)

  cat('\n\nStatistics\n')
  print(x$stat,
        digits = digits,
        ...)

  cat('\n\nClusters\n')
  cc <- x$clus
  i <- 0
  while(i < length(cc)){
    i <- i + 1
    cat(paste('#################  Cluster ', i, ' ################\n'))
    gro <- strsplit(cc[[i]], ',')
    cat(gro[[1]][1], sep = '\n', fill = TRUE, labels = "{G1}:")
    cat(gro[[1]][2], sep = '\n', fill = TRUE, labels = "{G2}:")
  }
}