J'ai plusieurs variables y (x, y1, y2, y3 .... etc) que j'aimerais représenter sous forme de courbes lissées dans un seul graph.
x =[0 - 90].
J'aimerais que toutes les courbes commencent à (0,0) et se termine à (90,1), car ces deux points sont précis.
Or pour le moment avec le code ci-dessous, je n'obtiens pas cela.
A part pour la première qui est bien, les autres courbes finissent certes plutôt proches de 1 (car presque asymptotiques) mais ne passent pas par l'origine.
Code : Tout sélectionner
x <- speedmatrix2[,1]
y <- speedmatrix2[,2]
lo <- loess(y ~ x)
plot(predict(lo), col='red', lwd=2)
for (i in 2:11){
x <- speedmatrix2[,1]
y <- speedmatrix2[,i]
lo <- loess(y ~ x)
lines(predict(lo), col='red', lwd=2)
}
Code : Tout sélectionner
> dim(speedmatrix2)
[1] 90 11
Veuillez m'éclairer.
Merci,
Elsa