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)