# NOT RUN {
data(hobbies)
# }
# NOT RUN {
res.mca <- MCA(hobbies,quali.sup=19:22,quanti.sup=23,method="Burt")
plot(res.mca,invisible=c("ind","quali.sup"),hab="quali") ### active var. only
plot(res.mca,invisible=c("var","quali.sup"),cex=.5,label="none") ### individuals only
plot(res.mca,invisible=c("ind","var"),hab="quali") ### supp. qualitative var. only
dimdesc(res.mca)
plotellipses(res.mca,keepvar=1:4)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab