plotRelVar(data, f_p1, predict_from=P); title(paste("StdDev p1 day",i_p))
plotRelVar(data, f_np2, predict_from=P); title(paste("StdDev p2 day",i_np))
-plotRelVar(data, f_p2, preidct_from=P); title(paste("StdDev p2 day",i_p))
+plotRelVar(data, f_p2, predict_from=P); title(paste("StdDev p2 day",i_p))
# Variabilité globale en rouge ; sur les voisins (+ lendemains) en noir
-----