powered by
banque
data(banque)
data(banque) banque.acm <- dudi.acm(banque, scann = FALSE, nf = 3) apply(banque.acm$cr, 2, mean) banque.acm$eig[1:banque.acm$nf] # the same thing s.arrow(banque.acm$c1, clab = 0.75)
Run the code above in your browser using DataLab