plot(measure, type="l", ylim=yrange, xlab="Temps (en heures)", ylab="PM10")
par(new=TRUE)
plot(pred$getSerie(index), type="l", col="#0000FF", ylim=yrange, xlab="", ylab="")
plot(measure, type="l", ylim=yrange, xlab="Temps (en heures)", ylab="PM10")
par(new=TRUE)
plot(pred$getSerie(index), type="l", col="#0000FF", ylim=yrange, xlab="", ylab="")