diff --git a/R/plot.OutputsModel.R b/R/plot.OutputsModel.R index 79ff7abe474b5b2988959566b5be59abb8f76a3d..139db9c66a3518dbda6c9659506721a009d5ce8e 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))]