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)
# ## End(Not run)
Run the code above in your browser using DataLab