library(FactoMineR) data(children) # 1 chisq.test(children[1:14,1:5]) chisq.test(children[c(1:3,5:14),6:8]) chisq.test(children[1:14,6:8]) par(mfrow=c(1,2)) res.ca <- CA (children, ncp=5, col.sup = 6:8, row.sup = 15:18,graph=TRUE, axes=c(1,2)) res.ca <- CA (children, ncp=5, col.sup = 6:8, row.sup = 15:18,graph=TRUE, axes=c(3,4)) summary(res.ca) res.ca$row