v1.6.8.36 refactor: rename variable in CreateCalibOptions

DESCRIPTION

 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.6.8.35
+Version: 1.6.8.36
 Date: 2021-01-05
 Authors@R: c(
   person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),

NEWS.md

@@ -2,7 +2,7 @@
 
 
 
-### 1.6.8.35 Release Notes (2021-01-05)
+### 1.6.8.36 Release Notes (2021-01-05)
 
 #### New features
 

R/CreateCalibOptions.R

@@ -142,9 +142,9 @@ CreateCalibOptions <- function(FUN_MOD,
     }
     ##_set_FUN2
     if (IsHyst) {
-      FUN_NEIGE <- TransfoParam_CemaNeigeHyst
+      FUN_SNOW <- TransfoParam_CemaNeigeHyst
     } else {
-      FUN_NEIGE <- TransfoParam_CemaNeige
+      FUN_SNOW <- TransfoParam_CemaNeige
     }
     ##_set_FUN_LAG
     if (IsSD) {
@@ -180,7 +180,7 @@ CreateCalibOptions <- function(FUN_MOD,
           ParamOut <- NA * ParamIn
           NParam   <- ncol(ParamIn)
           ParamOut[, 1:(NParam - 4)     ] <- FUN_GR(ParamIn[, 1:(NParam - 4)     ], Direction)
-          ParamOut[, (NParam - 3):NParam] <- FUN_NEIGE(ParamIn[, (NParam - 3):NParam], Direction)
+          ParamOut[, (NParam - 3):NParam] <- FUN_SNOW(ParamIn[, (NParam - 3):NParam], Direction)
           if (!Bool) {
             ParamOut <- ParamOut[1, ]
           }
@@ -200,7 +200,7 @@ CreateCalibOptions <- function(FUN_MOD,
           } else {
             ParamOut[, 1:(NParam - 2)] <- FUN_GR(      ParamIn[, 1:(NParam - 2)],  Direction)
           }
-          ParamOut[, (NParam - 1):NParam] <- FUN_NEIGE(ParamIn[, (NParam - 1):NParam], Direction)
+          ParamOut[, (NParam - 1):NParam] <- FUN_SNOW(ParamIn[, (NParam - 1):NParam], Direction)
           if (!Bool) {
             ParamOut <- ParamOut[1, ]
           }
@@ -216,7 +216,7 @@ CreateCalibOptions <- function(FUN_MOD,
           ParamOut <- NA * ParamIn
           NParam   <- ncol(ParamIn)
           ParamOut[, 2:(NParam - 4)     ] <- FUN_GR(   ParamIn[, 2:(NParam - 4)     ], Direction)
-          ParamOut[, (NParam - 3):NParam] <- FUN_NEIGE(   ParamIn[, (NParam - 3):NParam], Direction)
+          ParamOut[, (NParam - 3):NParam] <- FUN_SNOW(   ParamIn[, (NParam - 3):NParam], Direction)
           ParamOut[, 1                  ] <- FUN_LAG(as.matrix(ParamIn[, 1       ]), Direction)
           if (!Bool) {
             ParamOut <- ParamOut[1, ]
@@ -237,8 +237,8 @@ CreateCalibOptions <- function(FUN_MOD,
           } else {
             ParamOut[, 2:(NParam - 2)] <- FUN_GR(      ParamIn[, 2:(NParam - 2)],  Direction)
           }
-          ParamOut[, (NParam - 1):NParam] <- FUN_NEIGE(   ParamIn[, (NParam - 1):NParam], Direction)
-          ParamOut[, 1                   ] <- FUN_LAG(as.matrix(ParamIn[, 1]), Direction)
+          ParamOut[, (NParam - 1):NParam] <- FUN_SNOW(   ParamIn[, (NParam - 1):NParam], Direction)
+          ParamOut[, 1                  ] <- FUN_LAG(as.matrix(ParamIn[, 1]), Direction)
           if (!Bool) {
             ParamOut <- ParamOut[1, ]
           }
@@ -484,4 +484,4 @@ CreateCalibOptions <- function(FUN_MOD,
 
   return(CalibOptions)
 
-}
\ No newline at end of file
+}