don <- read.table("https://husson.github.io/livre_exo/chap8_ex4.csv", header = TRUE, sep=";", encoding = "latin1")

## Question 2
cor(don)
cor.test(don[,1],don[,2])

## Question 3
plot(temps.libre~age, data=don)