374
Le logiciel R - Effectuer des analyses statistiques
> table.complète <- addmargins(matable,FUN=sum,quiet=TRUE)
> table.complète
situation
sexe
seul couple famille autre sum
Homme
20
63
2
0 85
Femme
78
56
7
0 141
sum
98
119
9
0 226
Astuce
• Pour changer l’intitul´ e « sum » des marges des tableaux pr´ ec´ edents,
vous pouvez d´ efinir la fonction Total() (ainsi : Total <- sum) puis
remplacer sum par Total dans l’appel de addmargins() ci-dessus.
• Lorsque le tableau de contingence est d´ ej` a fourni dans un fichier,
nous avons vu dans le chapitre 2 comment importer ce type de fichier
au moyen de la fonction read.ftable() et l’afficher au moyen de la
fonction ftable().
9.3.4.2 Distribution conjointe
Le tableau de la distribution conjointe (encore appel´ e tri crois´ e en fr´ equences
relatives) du couple (X, Y) s’obtient ` a partir du tableau de contingence matable
pr´ ec´ edent.
> tableaufreq <- matable/sum(matable)
> tableaufreq
situation
sexe
seul
couple
famille
autre
Homme 0.088495575 0.278761062 0.008849558 0.000000000
Femme 0.345132743 0.247787611 0.030973451 0.000000000
Si l’on veut aussi obtenir les marges, on peut utiliser l’une des instructions
suivantes :
> Total <- sum
> addmargins(tableaufreq,FUN=Total,quiet=TRUE)
situation
sexe
seul
couple
famille
autre
Homme 0.088495575 0.278761062 0.008849558 0.000000000
Femme 0.345132743 0.247787611 0.030973451 0.000000000
Total 0.433628319 0.526548673 0.039823009 0.000000000
situation
sexe
Total
Homme 0.376106195
Femme 0.623893805
Total 1.000000000