Cidre <- read.table("https://husson.github.io/livre_exo/chap1_ex3.csv", header = TRUE, sep=";", encoding = "latin1") scale(Cidre, scale = FALSE) ## centrage scale(Cidre) * sqrt(21/20) ## centrage - réduction