From: Benjamin Auder Date: Tue, 11 Apr 2017 23:29:43 +0000 (+0200) Subject: improve report X-Git-Url: https://git.auder.net/variants/current/doc/css/img/scripts/%24%7BgetWhatsApp%28link%29%7D?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