Blé <- read.table("https://husson.github.io/livre_exo/chap6_ex5.csv", header = TRUE, sep=";", encoding = "latin1", stringsAsFactors = TRUE) ## Question 2 summary(aov(Rendement ~ Variété + Bloc, data = Blé)) ## ou library(FactoMineR) AovSum(Rendement ~ Variété + Bloc, data = Blé) ## Question 4 summary(aov(Rendement ~ Variété , data = Blé)) ## ou library(FactoMineR) AovSum(Rendement ~ Variété , data = Blé)