From: Benjamin Auder <benjamin.auder@somewhere>
Date: Tue, 11 Apr 2017 23:29:43 +0000 (+0200)
Subject: improve report
X-Git-Url: https://git.auder.net/images/doc/html/Rlogo.svg?a=commitdiff_plain;h=63afc6d96c7531b1fbb91c0c55979e124e3efc14;p=talweg.git

improve report
---

diff --git a/reports/report.gj b/reports/report.gj
index da1ce3e..0273a16 100644
--- a/reports/report.gj
+++ b/reports/report.gj
@@ -63,8 +63,9 @@ plotError(list(e1, e5, e4, e2, e3), cols=c(1,2,colors()[258],4,6))
 # 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))
@@ -111,7 +112,7 @@ plotSimils(p2, i_p); title(paste("Weights p2 day",i_p))
 
 # - 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