From a87c8d7dbd6930ef575c630e94b1700ef84ccaf7 Mon Sep 17 00:00:00 2001
From: unknown <olivier.delaigue@ANPI1430.antony.irstea.priv>
Date: Wed, 5 Apr 2017 11:05:56 +0200
Subject: [PATCH] v1.0.6.2 the print of the KGE2 gamma is fixed #4665
---
DESCRIPTION | 2 +-
R/ErrorCrit_KGE2.R | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/DESCRIPTION b/DESCRIPTION
index d593fd3c..bdd7b7db 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.6.1
+Version: 1.0.6.2
Date: 2017-04-05
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl")),
diff --git a/R/ErrorCrit_KGE2.R b/R/ErrorCrit_KGE2.R
index ef921e61..da8c6ce8 100644
--- a/R/ErrorCrit_KGE2.R
+++ b/R/ErrorCrit_KGE2.R
@@ -67,7 +67,7 @@ ErrorCrit_KGE2 <- function(InputsCrit,OutputsModel, warnings = TRUE, verbose = T
##SubErrorCrit_____KGE_gama______________________
iCrit <- iCrit+1;
- SubCritNames[iCrit] <- paste(CritName," sd(sim)/sd(obs) =", sep = "")
+ SubCritNames[iCrit] <- paste(CritName," cv(sim)/cv(obs) =", sep = "")
SubCritValues[iCrit] <- NA;
if(meanVarSim==0){ if(sd(VarSim[!TS_ignore])==0){ CVsim <- 1; } else { CVsim <- 99999; } } else { CVsim <- sd(VarSim[!TS_ignore])/meanVarSim; }
if(meanVarObs==0){ if(sd(VarObs[!TS_ignore])==0){ CVobs <- 1; } else { CVobs <- 99999; } } else { CVobs <- sd(VarObs[!TS_ignore])/meanVarObs; }
--
GitLab