# NOT RUN {
# Cluster analysis with Correspondence Analysis
data(ColorAdjective)
FC.col <-FactoClass(ColorAdjective, dudi.coa)
6
10
5
FC.col
FC.col$dudi
# Cluster analysis with Multiple Correspondence Analysis
data(BreedsDogs)
BD.act <- BreedsDogs[-7] # active variables
BD.ilu <- BreedsDogs[7] # ilustrative variables
FC.bd <-FactoClass( BD.act, dudi.acm, k.clust = 4,
scanFC = FALSE, dfilu = BD.ilu, nfcl = 10)
FC.bd
FC.bd$clus.summ
FC.bd$indices
# }
Run the code above in your browser using DataLab