data(ratingTV)
# Fuzzy Correspondence Analysis
fuzzyb<-fuzzy(datos=ratingTV$tab, vectorc=c(15,15,15,15,15,15))
6
#Cluster analysis
clases<-classification(datos=fuzzyb$li,numclass=7, numaxes=6)
clases$cluster
clases$centers
clases$size
Run the code above in your browser using DataLab