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 Studentsdm2 <2 years="" <="" li="">
d24 [2 years, 4 years[
d48 [4 years, 8 years[
d812 [8 years, 12 years[
dp12 >= 12 yearsnon no
oui 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 Male
fem Femalenon no
oui yes non no
oui yes non no
oui yesp4 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 and <20000 <="" li="">
nul nulle for > 20000
fai >0 and <20000 <="" li="">
nul nulle non no
oui yes nul none
fai >0 and <20000 <="" li="">
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 <="" li="">
moy >1000 nul none
fai <1000 <="" li="">
moy >1000 nul none
fai <2500 <="" li="">
moy 2500-5000
for >5000for >10000
moy 10000-5000
fai <5000 <="" li="">
nul aucunnul none
fai < 20000
moy 20000-100000
for >100000data(banque)
banque.acm <- dudi.acm(banque, scannf = FALSE, nf = 3)
apply(banque.acm$cr, 2, mean)
banque.acm$eig[1:banque.acm$nf] # the same thing
if(adegraphicsLoaded()) {
g <- s.arrow(banque.acm$c1, plabels.cex = 0.75)
} else {
s.arrow(banque.acm$c1, clab = 0.75)
}Run the code above in your browser using DataLab