Hier soir, on voyait comment faire une analyse des correspondances à partir du tableau de contingence. Mais on peut avoir le problème autrement, à partir des individus. Certes, ces derniers ne sont pas observés (vraiment), mais peu importe.
> data(HairEyeColor) > N = HairEyeColor[,,"Male"] + HairEyeColor[,,"Female"] > Hair = rep(rep(rownames(N),ncol(N)), + as.vector(N)) > Eye = rep(colnames(N),apply(N,2,sum)) > df = data.frame(Ind=1:sum(N),Hair,Eye) > tail(df) Ind Hair Eye 587 587 Blond Green 588 588 Blond Green 589 589 Blond Green 590 590 Blond Green 591 591 Blond Green 592 592 Blond Green