From 3474910185709f69c683ae7a097c693d7a76e3c9 Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.fr>
Date: Tue, 15 Feb 2022 08:48:51 +0100
Subject: [PATCH] refactor(clean): remove useless variables in
plot.OutputsModel Reviewed-by: @guillaume.thirel Refs #147
---
R/plot.OutputsModel.R | 4 ----
1 file changed, 4 deletions(-)
diff --git a/R/plot.OutputsModel.R b/R/plot.OutputsModel.R
index 79ff7abe..139db9c6 100644
--- 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))]
--
GitLab