Code : Tout sélectionner
AfC <- dudi.coa(dataAFC)
PcA <- dudi.pca(dataPCA,row.w=AfC$lw)
coin <- coinertia(AfC,PcA)
Code : Tout sélectionner
(dist(1:10)+dist(1:10))/2
Code : Tout sélectionner
mean(A,B)
Code : Tout sélectionner
mean(c(as.vector(A),as.vector(B)))