Commit aa773cf1 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

v1.2.16.4 CLEAN: plot unit corrected for Error plot in plot.OutputsModel

Showing with 5 additions and 4 deletions
+5 -4
Package: airGR Package: airGR
Type: Package Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
Version: 1.2.16.3 Version: 1.2.16.4
Date: 2019-05-22 Date: 2019-05-24
Authors@R: c( Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")), 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"), person("Olivier", "Delaigue", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-7668-8468"), email = "airGR@irstea.fr"),
......
...@@ -14,7 +14,7 @@ output: ...@@ -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 #### New features
......
...@@ -561,6 +561,7 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea = ...@@ -561,6 +561,7 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
if (BOOLPLOT_Error) { if (BOOLPLOT_Error) {
kPlot <- kPlot + 1 kPlot <- kPlot + 1
mar <- c(3, 5, 1, 5) mar <- c(3, 5, 1, 5)
plotunitError <- "[-]"
errorQ <- OutputsModel$Qsim / Qobs errorQ <- OutputsModel$Qsim / Qobs
par(new = FALSE, mar = mar) par(new = FALSE, mar = mar)
...@@ -572,7 +573,7 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea = ...@@ -572,7 +573,7 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
xlab = "", ylab = "", log = ifelse(log_scale, "y", ""), xlab = "", ylab = "", log = ifelse(log_scale, "y", ""),
panel.first = abline(h = 1, col = "grey", lty = 2), ...) panel.first = abline(h = 1, col = "grey", lty = 2), ...)
axis(side = 2, at = pretty(ylim1), labels = pretty(ylim1), cex.axis = cex.axis, ...) 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) { if (BOOL_Dates) {
axis(side = 1, at = Seq1, labels = FALSE, cex.axis = cex.axis, ...) 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, ...) axis(side = 1, at = Seq2, labels = Labels2, lwd.ticks = 1.5, cex.axis = cex.axis, ...)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment