data(DogBreeds)
DB.act <- DogBreeds[-7] # active variables
DB.ilu <- DogBreeds[7] # illustrative variables
# MCA
FaCl <- FactoClass( DB.act, dudi.acm,
scanFC = FALSE, dfilu = DB.ilu, nfcl = 10, k.clust = 4 )
# In order to create a file in LaTeX format
# FactoClass.tex(FaCl,job="DogBreeds1", append=TRUE)
# FactoClass.tex(FaCl,job="DogBreeds", append=TRUE , p.clust = TRUE)
Run the code above in your browser using DataLab