diff --git a/DESCRIPTION b/DESCRIPTION index d593fd3c2d92959da76a3694fec71ca36c31e6b9..bdd7b7dbd9f67366605f863d33ea70fc5b47979f 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 ef921e611f5bec96246d29001f63d511bc596dac..da8c6ce85c471b372ba65970b7d5829ab46600e2 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; }