From aa773cf1663b7a081630f1b0ad2b876b631d002e Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.priv>
Date: Fri, 24 May 2019 11:38:37 +0200
Subject: [PATCH] v1.2.16.4 CLEAN: plot unit corrected for Error plot in
plot.OutputsModel
---
DESCRIPTION | 4 ++--
NEWS.rmd | 2 +-
R/plot.OutputsModel.R | 3 ++-
3 files changed, 5 insertions(+), 4 deletions(-)
diff --git a/DESCRIPTION b/DESCRIPTION
index 1de6906e..a0444ed6 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,8 +1,8 @@
Package: airGR
Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.2.16.3
-Date: 2019-05-22
+Version: 1.2.16.4
+Date: 2019-05-24
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
person("Olivier", "Delaigue", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-7668-8468"), email = "airGR@irstea.fr"),
diff --git a/NEWS.rmd b/NEWS.rmd
index ee6c69e8..a654d363 100644
--- a/NEWS.rmd
+++ b/NEWS.rmd
@@ -14,7 +14,7 @@ output:
-### 1.2.16.3 Release Notes (2019-05-22)
+### 1.2.16.4 Release Notes (2019-05-23)
#### New features
diff --git a/R/plot.OutputsModel.R b/R/plot.OutputsModel.R
index 007630be..7493ec7b 100644
--- a/R/plot.OutputsModel.R
+++ b/R/plot.OutputsModel.R
@@ -561,6 +561,7 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
if (BOOLPLOT_Error) {
kPlot <- kPlot + 1
mar <- c(3, 5, 1, 5)
+ plotunitError <- "[-]"
errorQ <- OutputsModel$Qsim / Qobs
par(new = FALSE, mar = mar)
@@ -572,7 +573,7 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
xlab = "", ylab = "", log = ifelse(log_scale, "y", ""),
panel.first = abline(h = 1, col = "grey", lty = 2), ...)
axis(side = 2, at = pretty(ylim1), labels = pretty(ylim1), cex.axis = cex.axis, ...)
- mtext(side = 2, paste("flow err.", plotunit), cex = cex.lab, line = line)
+ mtext(side = 2, paste("flow err.", plotunitError), cex = cex.lab, line = line)
if (BOOL_Dates) {
axis(side = 1, at = Seq1, labels = FALSE, cex.axis = cex.axis, ...)
axis(side = 1, at = Seq2, labels = Labels2, lwd.ticks = 1.5, cex.axis = cex.axis, ...)
--
GitLab