From 3f6c603fe05100b616ebc879588b95e119cfc218 Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.priv>
Date: Wed, 17 Oct 2018 11:42:57 +0200
Subject: [PATCH] v1.0.15.14 CLEAN: remove the example using KGE on log from
 CreateInputsCrit

---
 DESCRIPTION             | 2 +-
 NEWS.rmd                | 2 +-
 man/CreateInputsCrit.Rd | 9 ---------
 3 files changed, 2 insertions(+), 11 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index b68c9b8c..56631f99 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.15.13
+Version: 1.0.15.14
 Date: 2018-10-17
 Authors@R: c(
   person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
diff --git a/NEWS.rmd b/NEWS.rmd
index 30004949..65792581 100644
--- a/NEWS.rmd
+++ b/NEWS.rmd
@@ -13,7 +13,7 @@ output:
 
 
 
-### 1.0.15.13 Release Notes (2018-10-17) 
+### 1.0.15.14 Release Notes (2018-10-17) 
 
 #### New features
 
diff --git a/man/CreateInputsCrit.Rd b/man/CreateInputsCrit.Rd
index 7c50f3ea..f8808238 100644
--- a/man/CreateInputsCrit.Rd
+++ b/man/CreateInputsCrit.Rd
@@ -106,15 +106,6 @@ OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsMode
 InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_KGE, InputsModel = InputsModel, 
                                RunOptions = RunOptions, Qobs = BasinObs$Qmm[Ind_Run])
 OutputsCrit <- ErrorCrit_KGE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
-
-## efficiency criterion: Kling-Gupta Efficiency below a threshold (q10\%) on log-transformed flows
-transfo  <- "log"
-BoolCrit <- rep(TRUE, length(BasinObs$Qmm[Ind_Run])); 
-BoolCrit[BasinObs$Qmm[Ind_Run]>quantile(BasinObs$Qmm[Ind_Run], 0.10, na.rm = TRUE)] <- FALSE
-InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_KGE,
-                               InputsModel = InputsModel,RunOptions = RunOptions, 
-                               Qobs = BasinObs$Qmm[Ind_Run], BoolCrit = BoolCrit, transfo = transfo)
-OutputsCrit <- ErrorCrit_KGE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 }
 
 
-- 
GitLab