Acidité <- read.table("https://husson.github.io/livre_exo/chap6_ex1.csv", header = TRUE, sep=";", encoding = "latin1") for (i in 1:2) Acidité[,i] <- as.factor(Acidité[,i]) library(FactoMineR) AovSum(Note ~ café + juge, data = Acidité)