# Import data setwd("C:/Users/houee/Downloads") temperature <- read.table("data_clustering_Temperature.csv", header=TRUE, sep=";", row.names=1) summary(temperature) # Loading FactoMineR library(FactoMineR) # PCA res <- PCA(temperature, quanti.sup=13:16,quali.sup=17) # Hierarchical ascendant clustering res.hcpc <- HCPC(res) # Outputs names(res.hcpc) res.hcpc$data.clust res.hcpc$desc.var res.hcpc$desc.axes res.hcpc$desc.ind