diff --git a/DESCRIPTION b/DESCRIPTION index 0171a3ed53c567710b8827ca44dc305d8d11dda6..fef240b23f5eea2478d633623393ea6d8ced8ade 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: airGR Type: Package Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling -Version: 1.0.6.8 +Version: 1.0.6.9 Date: 2017-04-05 Authors@R: c( person("Laurent", "Coron", role = c("aut", "trl")), diff --git a/R/plot.OutputsModel.R b/R/plot.OutputsModel.R index 9261b1dd3761aafa3704224dba934ff85363e6a9..7146e196dbfec88a17244ef721470a7244702388 100644 --- a/R/plot.OutputsModel.R +++ b/R/plot.OutputsModel.R @@ -176,7 +176,7 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea = } plot(Xaxis, OutputsModel$Precip[IndPeriod_Plot], type = "h", xaxt = "n", yaxt = "n", yaxs = "i", ylim = ylim2, - col = "royalblue", lwd = lwdP * lwdk, + col = "royalblue", lwd = lwdP * lwdk, lend = 1, xlab = "", ylab = "", ...) axis(side = 2, at = pretty(ylim1), labels = pretty(ylim1), cex.axis = cex.axis, ...) par(las = 0) @@ -188,8 +188,10 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea = col = c("lightblue", "royalblue"), lty = c(1, 1), lwd = c(lwd, lwd), bty = "o", bg = bg, box.col = bg, cex = cex.leg) par(new = TRUE) - plot(Xaxis, PsolLayerMean[IndPeriod_Plot], type = "h", xaxt = "n", yaxt = "n", yaxs = "i", - ylim = ylim2, col = "lightblue", lwd = lwdP * lwdk, xlab = "", ylab = "", ...) + plot(Xaxis, PsolLayerMean[IndPeriod_Plot], + type = "h", xaxt = "n", yaxt = "n", yaxs = "i", ylim = ylim2, + col = "lightblue", lwd = lwdP * lwdk, lend = 1, + xlab = "", ylab = "", ...) } if (BOOL_Dates) { axis(side = 1, at = Seq1, labels = FALSE, cex.axis = cex.axis, ...)