v1.0.9.52 error message fixed in CreateRunOptions when the length of IniResLevels is checked

DESCRIPTION

 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.0.9.51
-Date: 2017-10-17
+Version: 1.0.9.52
+Date: 2017-10-23
 Authors@R: c(
   person("Laurent", "Coron", role = c("aut", "trl")),
   person("Charles", "Perrin", role = c("aut", "ths")),

NEWS.rmd

@@ -14,7 +14,7 @@ output:
 
 
 
-### 1.0.9.51 Release Notes (2017-10-17) 
+### 1.0.9.52 Release Notes (2017-10-23) 
 
 #### New features
 

R/CreateRunOptions.R

@@ -109,12 +109,12 @@ CreateRunOptions <- function(FUN_MOD, InputsModel, IndPeriod_WarmUp = NULL, IndP
              identical(FUN_MOD, RunModel_GR5J) | identical(FUN_MOD, RunModel_CemaNeigeGR5J) |
              identical(FUN_MOD, RunModel_GR2M)) &
             length(IniResLevels) != 2) {
-          stop("The length of IniStates must be 2 for the chosen FUN_MOD \n")
+          stop("The length of IniResLevels must be 2 for the chosen FUN_MOD \n")
           return(NULL)
         }
         if ((identical(FUN_MOD,RunModel_GR6J) | identical(FUN_MOD,RunModel_CemaNeigeGR6J)) &
             length(IniResLevels) != 3) {
-          stop("The length of IniStates must be 3 for the chosen FUN_MOD \n")
+          stop("The length of IniResLevels must be 3 for the chosen FUN_MOD \n")
           return(NULL)
         }
       } else if (is.null(IniStates)) {