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)