# noir: Neighbors non-local (p1), bleu: Neighbors local endo (p2), mauve: Neighbors local none (p3),
# vert: moyenne (p4), rouge: persistence (p5)
-i_np = which.min(e1$abs$indices)
-i_p = which.max(e1$abs$indices)
+sum_p123 = e1$abs$indices + e2$abs$indices + e3$abs$indices
+i_np = which.min(sum_p123)
+i_p = which.max(sum_p123)
-----r
options(repr.plot.width=9, repr.plot.height=4)
par(mfrow=c(1,2))
# - pollué à gauche, + pollué à droite
-----r
-# Fenêtres sélectionnées dans ]0,7] / non-loc à gauche, loc à droite
+# Fenêtres sélectionnées dans ]0,7] / non-loc 2 premières lignes, loc ensuite
p1$getParams(i_np)$window
p1$getParams(i_p)$window