powered by
data(escopage)
Escofier, B. and Pag�s, J. (1994) Multiple factor analysis (AFMULT package). Computational Statistics and Data Analysis, 18, 121--140.
data(escopage) w <- data.frame(scale(escopage$tab)) w <- ktab.data.frame(w, escopage$blo) names(w)[1:4] <- escopage$tab.names plot(mfa(w, scan = FALSE))
Run the code above in your browser using DataLab