Merge branch '147-clean-plot-outputsmodel' into 'dev'

Resolve "Clean plot.OutputsModel?" Closes #147 See merge request !70

Merge branch '147-clean-plot-outputsmodel' into 'dev'
Resolve "Clean plot.OutputsModel?" Closes #147 See merge request !70
75509e86 · Delaigue Olivier · 73b6080d · 34749101 · 75509e86
Commit 75509e86 authored 3 years ago by Delaigue Olivier
Hide whitespace changes
Inline Side-by-side

Showing

with 0 additions and 4 deletions
+0 -4
--- a/R/plot.OutputsModel.R
+++ b/R/plot.OutputsModel.R
@@ -818,8 +818,6 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
      colleg <- NULL
      if (BOOL_Qobs) {
        DATA2 <- log(Qobs[SelectNotZero])
-        SeqQuant <- seq(0, 1, by = 1/(length(DATA2)))
-        Quant <- as.numeric(quantile(DATA2, SeqQuant, na.rm = TRUE))
        Fn <- ecdf(DATA2)
        YY <- DATA2
        YY <- YY[order(Fn(DATA2))]
@@ -831,8 +829,6 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
      }
      if (BOOL_Qsim) {
        DATA2 <- log(OutputsModel$Qsim[SelectNotZero])
-        SeqQuant <- seq(0, 1, by = 1/(length(DATA2)))
-        Quant <- as.numeric(quantile(DATA2, SeqQuant, na.rm = TRUE))
        Fn <- ecdf(DATA2)
        YY <- DATA2
        YY <- YY[order(Fn(DATA2))]