fc.PCA<-PCA(sample.frogcall,quali.sup=12)
plotellipses(fc.PCA)
points(coord.ellipse(cbind.data.frame(sample.frogcall[,12],fc.PCA$ind$coord))$res[,2:3], cex=.5)
Thanks for any insight into this. Saludos,
Justin
--
Vous recevez ce message, car vous êtes abonné au groupe Google Groupes FactoMineR users.
Pour vous désabonner de ce groupe et ne plus recevoir d'e-mails le concernant, envoyez un e-mail à l'adresse factominer-use...@googlegroups.com.
Pour plus d'options, visitez le site https://groups.google.com/groups/opt_out .
have you checked as in the ex? data(decathlon) res.pca <- PCA(decathlon, quanti.sup = 11:12, quali.sup = 13,graph=FALSE) aa <- cbind.data.frame(decathlon[,13],res.pca$ind$coord) bb <- coord.ellipse(aa,bary=TRUE) plot.PCA(res.pca,habillage=13,ellipse=bb) ## To automatically draw ellipses around the barycentres of all the categorical variables plotellipses(res.pca)