v1.0.9.50 minor revision of Param_Sets_GR4J example

DESCRIPTION

 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.0.9.49
-Date: 2017-09-28
+Version: 1.0.9.50
+Date: 2017-10-17
 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.47 Release Notes (2017-09-13) 
+### 1.0.9.50 Release Notes (2017-10-17) 
 
 #### New features
 

man/Param_Sets_GR4J.Rd

@@ -67,9 +67,12 @@ Ind_Cal <- seq(which(format(BasinObs$DatesR, format = "\%d/\%m/\%Y \%H:\%M")=="0
 RunOptions_Cal <- CreateRunOptions(FUN_MOD = RunModel_GR4J,
                                InputsModel = InputsModel, IndPeriod_Run = Ind_Cal)
 
-## simulation and efficiency criterion (Nash-Sutcliffe Efficiency) with all generalist parameter sets on the calibration period
+## simulation and efficiency criterion (Nash-Sutcliffe Efficiency)
+## with all generalist parameter sets on the calibration period
 OutputsCrit_Loop <- apply(Param_Sets_GR4J, 1, function(Param) {
-  OutputsModel_Cal <- RunModel_GR4J(InputsModel = InputsModel, RunOptions = RunOptions_Cal, Param = Param)
+  OutputsModel_Cal <- RunModel_GR4J(InputsModel = InputsModel,
+                                    RunOptions = RunOptions_Cal,
+                                    Param = Param)
   InputsCrit  <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, 
                                   RunOptions = RunOptions_Cal, Qobs = BasinObs$Qmm[Ind_Cal])
   OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel_Cal)
@@ -91,7 +94,9 @@ RunOptions_Val <- CreateRunOptions(FUN_MOD = RunModel_GR4J,
                                    InputsModel = InputsModel, IndPeriod_Run = Ind_Val)
 
 ## simulation with the best parameter set on the validation period
-OutputsModel_Val <- RunModel_GR4J(InputsModel = InputsModel, RunOptions = RunOptions_Val, Param = Param_Best)
+OutputsModel_Val <- RunModel_GR4J(InputsModel = InputsModel,
+                                  RunOptions = RunOptions_Val,
+                                  Param = Param_Best)
 
 ## results preview of the simulation with the best parameter set on the validation period
 plot(OutputsModel_Val, Qobs = BasinObs$Qmm[Ind_Val])