don <- read.table("https://husson.github.io/livre_exo/chap8_ex1.csv", header = TRUE, sep=";",row.names=1, encoding = "latin1") cor(don[,1:2]) cor.test(don[,1],don[,2])