ZOUAOUI Slim

Exemple pratique de AFC sous R

tableau de contingence entre deux variables qualitatives

data=read.table("ordinateurs.txt", header=T, sep="\t")

TC=table(data$Marque,data$Finition)

addmargins(TC)

TCp=prop.table(TC)

addmargins (TCp)

tableau de profils‐lignes entre deux variables qualitatives

PL=prop.table(TCp,1)

addmargins(PL,2)

tableau de profils‐colonnes entre deux variables qualitatives

PC=prop.table(TCp,2)

addmargins(PC,1)

test de khi deux entre deux variables qualitatives et Analyse d’association

chisq.test(TC)

chisq.test(TC)$expected # tableau de contingence théorique

chisq.test(TC)$observed # tableau de contingence empirique

etude=CA(TC, ncp=2)