banque
gives the results of a bank survey onto 810 customers.data(banque)
agric
Farmers
artis
Craftsmen, Shopkeepers, Company directors
cadsu
Executives and higher intellectual professions
inter
Intermediate professions
emplo
Other white-collar workers
ouvri
Manual workers
retra
Pensionners
inact
Non working population
etudi
Students} dm2
<2 years="" d24 [2 years, 4 years[
d48
[4 years, 8 years[
d812
[8 years, 12 years[
dp12
>= 12 years}
non
no
oui
yes}
ai25
[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
Male
fem
Female}
non
no
oui
yes }
non
no
oui
yes }
non
no
oui
yes}
p4
credit balance > 20000
p3
credit balance 12000-20000
p2
credit balance 4000-120000
p1
credit balance >0-4000
n1
debit balance 0-4000
n2
debit balance >4000 }
for
> 20000
fai
>0 et <20000 nul nulle }
for
> 20000
fai
>0 et <20000 nul nulle }
non
no
oui
yes }
nul
none
fai
>0 and <20000 for > 20000 }
oui
yes
non
no }
fai
< 2000
moy
2000-5000
for
> 5000 }
for
>10000
moy
10000-5000
fai
1-5000
nul
none }
nul
none
fai
<1000 moy >1000 }
nul
none
fai
<1000 moy >1000 }
nul
none
fai
<2500 moy 2500-5000
for
>5000 }
for
>10000
moy
10000-5000
fai
<5000 nul aucun }
nul
none
fai
< 20000
moy
20000-100000
for
>100000 }5000>2500>1000>1000>20000>20000>20000>2>
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