banque
gives the results of a bank survey onto 810 customers.data(banque)
agric
Farmersartis
Craftsmen, Shopkeepers, Company directorscadsu
Executives and higher intellectual professionsinter
Intermediate professionsemplo
Other white-collar workersouvri
Manual workersretra
Pensionnersinact
Non working populationetudi
Studentsdm2
<2 years<="" li="">d24
[2 years, 4 years[d48
[4 years, 8 years[d812
[8 years, 12 years[dp12
>= 12 yearsnon
nooui
yesai25
[18 years, 25 years[ai35
[25 years, 35 years[ai45
[35 years, 45 years[ai55
[45 years, 55 years[ai75
[55 years, 75 years[hom
Malefem
Femalenon
nooui
yesnon
nooui
yesnon
no
oui
yesp4
credit balance > 20000p3
credit balance 12000-20000p2
credit balance 4000-120000p1
credit balance >0-4000n1
debit balance 0-4000n2
debit balance >4000for
> 20000fai
>0 and <20000< li="">nul
nullefor
> 20000fai
>0 and <20000< li="">nul
nullenon
nooui
yesnul
nonefai
>0 and <20000< li="">for
> 20000oui
yesnon
nofai
< 2000moy
2000-5000for
> 5000for
>10000moy
10000-5000fai
1-5000nul
nonenul
nonefai
<1000< li="">moy
>1000nul
nonefai
<1000< li="">moy
>1000nul
nonefai
<2500< li="">moy
2500-5000for
>5000for
>10000moy
10000-5000fai
<5000< li="">nul
aucunnul
nonefai
< 20000moy
20000-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