R/print.HMFA.R

In FactoMineR: Multivariate Exploratory Data Analysis and Data Mining

print.HMFA <- function (x, file = NULL, sep = ";", ...){
    res.hmfa <- x
    if (!inherits(res.hmfa, "HMFA")) stop("non convenient data")
    cat("**Results of the Hierarchical Multiple Factor Analysis (HMFA)**\n\n")
    cat("There are", nrow(res.hmfa$ind$coord), "individuals\n\n")
    cat("*Results are available in the following objects :\n\n")
    res <- array("", c(22, 2), list(1:22, c("name", "description")))
    res[1, ] <- c("$eig", "eigenvalues")
    res[2, ] <- c("$group", "results for all the groups")
    res[3, ] <- c("$ind", "results for the individuals")
    res[4, ] <- c("$partial", "partial coordinates for the individuals")
    indice <- 4
    if (!is.null(res.hmfa["quanti.var"]$quanti.var)){
      indice <- indice + 1
      res[indice, ] <- c("$quanti.var", "results for the quantitative variables")
    }
    if (!is.null(res.hmfa["quali.var"]$quali.var)){
      indice <- indice + 1
      res[indice, ] <- c("$quali.var", "results for the categorical variables")
    }
    print(res[1:indice,])
    if (!is.null(file)) {
      write.infile(res.hmfa,file = file, sep=sep)
      print(paste("All the results are in the file",file))
    }
}