v1.0.5.29 plot.OutputsModel() use month.abb for x labels of the regime plot

2c1b065b · unknown · 996a1b5f · 2c1b065b · 2c1b065b
Commit 2c1b065b authored 7 years ago by unknown
Hide whitespace changes
Inline Side-by-side

Showing

with 2 additions and 2 deletions
+2 -2
--- a/DESCRIPTION
+++ b/DESCRIPTION
 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.0.5.28
+Version: 1.0.5.29
 Date: 2017-03-30
 Authors@R: c(
  person("Laurent", "Coron", role = c("aut", "trl")),

--- a/R/plot.OutputsModel.R
+++ b/R/plot.OutputsModel.R
@@ -340,7 +340,7 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
    labX <- "";
    }
    xLabels1 <- rep("", 13);
-    xLabels2 <- c("jan", "feb", "mar", "apr", "may", "jun", "jul", "aug", "sep", "oct", "nov", "dec");
+    xLabels2 <- month.abb
    ylimQ <- range(c(DataPlotQ$Qobs, DataPlotQ$Qsim), na.rm = TRUE);
    if(BOOL_Pobs){ ylimP <- c(max(DataPlotP$Precip, na.rm = TRUE), 0);  }
    txtleg <- NULL; colleg <- NULL; lwdleg <- NULL; lwdP = 10;