Trisomie <- read.table("https://husson.github.io/livre_exo/chap6_ex4.csv", header = TRUE, sep=";", encoding = "latin1", stringsAsFactors = TRUE) Trisomie[,1] <- Trisomie(Crème[,1]) library(FactoMineR) AovSum(Augmentation ~ Traitement + Psychologue, data = Trisomie)