Albeiro-Dev
11/1/2018 - 4:41 PM

linear regression line abline r

plot(decathlon$X100m,decathlon$Longueur,xlab="100m",ylab="Longueur",pch=18,col=
"blue")
abline(lm(decathlon$Longueur~decathlon$X100m),col="red")
cor(decathlon$X100m,decathlon$Longueur)
text(11.2,7.95,paste("Corr=",cor(decathlon$X100m,decathlon$Longueur)),cex=2)