Projeter des lignes supplémentaires dans une AFCM

[Alexandre Diot]

Bonjour,
mon titre résume bien ma question.
Dans la librairie ade4 j'ai trouvé comment projeter des lignes supplémentaires dans le cas d'une AFC et d'une ACP mais pas dans le cas d'une AFCM.Avez-vous connaissance d'une fonction réalisant cela ?
Cordialement ,

Alexandre

[Tillard]

Bonjour
Comme l'afcm d'un tableau X de facteurs = afc du tableau disjonctif complet de X
une solution pourrait etre

Code : Tout sélectionner

library(ade4)
#tab=table essai
tab <- as.data.frame(matrix(ncol=6, nrow=100))
for (i in 1:6) {
    tab[,i] <- factor(sample(1:4,100, replace=T))}
summary(tab)

#sup = variable suplémentaire essai
sup <- data.frame(vsup1=factor(sample(1:4,100, replace=T)), vsup2=factor(tab[,3]))
summary(sup)   

#afcm d'une table X de facteurs = afc du tableau disjonctif complet de X
acfc.tab <- dudi.acm(tab, scannf=F, nf=2)
afc.disj.tab <- dudi.coa(acm.disjonctif(tab), scannf=F, nf=2)

par(mfrow=c(2,1))
s.arrow(acfc.tab$co)
s.arrow(afc.disj.tab$co)

#afcm avec var supplementaires
s.arrow(afc.disj.tab$co, boxes=F)
s.label(supcol(afc.disj.tab, acm.disjonctif(sup))$cosup, add.p=T)


Cordialement

[Alexandre Diot]

Oui merci c'est ça et j'ai trouvé l'équivalent pour projeter des lignes !
merci pour votre réponse.

Alexandre

[Tillard]

Bonjour
désolé, mais je n'avais pas fait attention que vous désiriez projeter des lignes supplémentaires
cela dit, pourriez vous transmettre au forum la solution que vous avez mise en oeuvre sur les lignes, si possible en reprenant l'exemple reproductible (tab)
d'avance merci
cordialement

[Alexandre Diot]

Bonjour, désolé je n'avais pas vu votre demande.

De mémoire je crois que j'avais utilisé votre code en changeant simplement l'instruction "supcol" par "suprow".

Cordialement,

Alexandre