Cidre <- read.table("https://husson.github.io/livre_exo/chap1_ex2.csv", header = TRUE, sep=";", encoding = "latin1")
pH <- Cidre[,1]
mean(pH)
median(pH)
sd(pH)* sqrt(20/21)
var(pH) * 20/21
hist(pH)
boxplot(pH)