banque gives the results of a bank survey onto 810 customers.data(banque)agricFarmersartisCraftsmen, Shopkeepers, Company directorscadsuExecutives and higher intellectual professionsinterIntermediate professionsemploOther white-collar workersouvriManual workersretraPensionnersinactNon working populationetudiStudentsdm2<2 years<="" li="">d24[2 years, 4 years[d48[4 years, 8 years[d812[8 years, 12 years[dp12>= 12 yearsnonnoouiyesai25[18 years, 25 years[ai35[25 years, 35 years[ai45[35 years, 45 years[ai55[45 years, 55 years[ai75[55 years, 75 years[homMalefemFemalenonnoouiyesnonnoouiyesnonno
ouiyesp4credit balance > 20000p3credit balance 12000-20000p2credit balance 4000-120000p1credit balance >0-4000n1debit balance 0-4000n2debit balance >4000for> 20000fai>0 and <20000< li="">nulnullefor> 20000fai>0 and <20000< li="">nulnullenonnoouiyesnulnonefai>0 and <20000< li="">for> 20000ouiyesnonnofai< 2000moy2000-5000for> 5000for>10000moy10000-5000fai1-5000nulnonenulnonefai<1000< li="">moy>1000nulnonefai<1000< li="">moy>1000nulnonefai<2500< li="">moy2500-5000for>5000for>10000moy10000-5000fai<5000< li="">nulaucunnulnonefai< 20000moy20000-100000for>100000data(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