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é)