## Performs a specific MCA and a CSA on the 'Music' example data set
## and compute cosine similarities and angles
data(Music)
resmca <- speMCA(Music[,1:5],excl=c(3,6,9,12,15))
female <- Music$Gender=='Women'
rescsa <- csMCA(Music[,1:5],subcloud=female,excl=c(3,6,9,12,15))
angles.csa(rescsa, resmca)
Run the code above in your browser using DataLab