R/summary.incat.R

In ICGE: Estimation of Number of Clusters and Identification of Atypical Units

summary.incat <- function(object, ...){
# object must be a list with three components
   cat ("        INCA test    \n")
   k <- length(object$ProjectionsU)
   cat(" INCA statistic value =", object$StatisticW0,  "\n")
   cat("\n % of significative tests for alpha= " , object$alpha," : ", 
     format(object$Percentage_under_alpha, digits=3), "\n")
}