## Not run:
# data(poulet)
# res.pca = PCA(poulet,quali.sup=1, graph=FALSE)
# plot(res.pca)
# plot(res.pca,habillage=1,label="quali",
# palette=palette(c("black","red","blue","darkgreen","purple","orange")))
# dimdesc(res.pca)
# ## Dessine des ellipses autour des centres de gravite
# plotellipses(res.pca)## End(Not run)
Run the code above in your browser using DataLab