# NOT RUN {
data(Taste)
getindexcat(Taste[,1:5])
mca <- speMCA(Taste[,1:5],excl=c(3,6,9,12,15))
hc <- hclust(dist(mca$ind$coord))
clust <- as.factor(cutree(hc,5))
catdesc(clust, Taste[,c('Gender','Age')])
# }
Run the code above in your browser using DataLab