v1.2.2.4 UPDATE: Calibration_Michel can now use TransfoParam_CemaNeigeHyst

DESCRIPTION

 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.2.2.3
+Version: 1.2.2.4
 Date: 2019-02-19
 Authors@R: c(
   person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),

NEWS.rmd

@@ -13,7 +13,7 @@ output:
 
 
 
-### 1.2.2.3 Release Notes (2019-01-30) 
+### 1.2.2.4 Release Notes (2019-01-30) 
 
 
 

R/Calibration_Michel.R

@@ -54,19 +54,25 @@ Calibration_Michel <- function(InputsModel, RunOptions, InputsCrit, CalibOptions
       FUN_TRANSFO <- TransfoParam_GR1A
     }
     if (identical(FUN_MOD, RunModel_CemaNeige    )) {
-      FUN_TRANSFO <- TransfoParam_CemaNeige
+      if (inherits(FUN_MOD, "hysteresis")) {
+        FUN_TRANSFO <- TransfoParam_CemaNeigeHyst
+      } else {
+        FUN_TRANSFO <- TransfoParam_CemaNeige
+      }
     }
     if (identical(FUN_MOD, RunModel_CemaNeigeGR4J) | identical(FUN_MOD, RunModel_CemaNeigeGR5J) | identical(FUN_MOD, RunModel_CemaNeigeGR6J)) {
       if (identical(FUN_MOD, RunModel_CemaNeigeGR4J)) {
         FUN1 <- TransfoParam_GR4J
-        FUN2 <- TransfoParam_CemaNeige
       }
       if (identical(FUN_MOD, RunModel_CemaNeigeGR5J)) {
         FUN1 <- TransfoParam_GR5J
-        FUN2 <- TransfoParam_CemaNeige
       }
       if (identical(FUN_MOD,RunModel_CemaNeigeGR6J)) {
         FUN1 <- TransfoParam_GR6J
+      }
+      if (inherits(FUN_MOD, "hysteresis")) {
+        FUN2 <- TransfoParam_CemaNeigeHyst
+      } else {
         FUN2 <- TransfoParam_CemaNeige
       }
       FUN_TRANSFO <- function(ParamIn, Direction) {