Les fonctions table() et xtabs() permettent d’obtenir directement un tableau croisé à partir des colonnes d’un data.frame
sechage <- factor(c(rep("lent",5),rep("rapide",5)))
marque <- factor(c(rep("Mer",3),rep("Cim",3),rep("vex",4)))
ciment <- cbind.data.frame(sechage,marque)
#On colle les deux variables pour obtenir un data.frame
xtabs(~sechage+marque,data=ciment)
table(ciment$sechage,ciment$marque)
#Les fonctions table() et xtabs() sont équivalentes
On obtient :
table(ciment$sechage,ciment$marque)
Cim Mer vex
lent 2 3 0
rapide 1 0 4