Qte.alcool <- read.table("https://husson.github.io/livre_exo/chap2_ex3.csv",header=TRUE,sep=";",row.names=1, encoding = "latin1")

## Question 1.b
t.test(Qte.alcool)