From 7cc62c5a4544976bef37bbdde523b95ed20b5fe6 Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.priv>
Date: Mon, 1 Apr 2019 11:26:02 +0200
Subject: [PATCH] v1.2.12.22 UPDATE: ErrorCrit* funs and many examples in doc
 now use Obs argument of CreateRunOptions instead obs or Qobs

---
 DESCRIPTION                            |  2 +-
 NEWS.rmd                               |  2 +-
 R/ErrorCrit_KGE.R                      |  2 +-
 R/ErrorCrit_KGE2.R                     |  2 +-
 R/ErrorCrit_NSE.R                      |  2 +-
 R/ErrorCrit_RMSE.R                     |  2 +-
 man/Calibration.Rd                     |  6 +++---
 man/Calibration_Michel.Rd              |  6 +++---
 man/CreateCalibOptions.Rd              |  6 +++---
 man/CreateInputsCrit.Rd                | 22 +++++++++++-----------
 man/CreateInputsModel.Rd               |  2 +-
 man/CreateRunOptions.Rd                |  2 +-
 man/ErrorCrit.Rd                       |  6 +++---
 man/ErrorCrit_KGE.Rd                   |  6 +++---
 man/ErrorCrit_KGE2.Rd                  |  6 +++---
 man/ErrorCrit_NSE.Rd                   |  6 +++---
 man/ErrorCrit_RMSE.Rd                  |  6 +++---
 man/RunModel.Rd                        |  2 +-
 man/RunModel_CemaNeigeGR4J.Rd          |  4 ++--
 man/RunModel_CemaNeigeGR5J.Rd          |  4 ++--
 man/RunModel_CemaNeigeGR6J.Rd          |  4 ++--
 man/RunModel_GR1A.Rd                   |  2 +-
 man/RunModel_GR2M.Rd                   |  2 +-
 man/RunModel_GR4H.Rd                   |  2 +-
 man/RunModel_GR4J.Rd                   |  2 +-
 man/RunModel_GR5J.Rd                   |  2 +-
 man/RunModel_GR6J.Rd                   |  2 +-
 vignettes/V01_get_started.Rmd          |  6 +++---
 vignettes/V03_param_sets_GR4J.Rmd      |  4 ++--
 vignettes/V04_cemaneige_hysteresis.Rmd |  6 +++---
 30 files changed, 64 insertions(+), 64 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 4e0d3829..cb9bcaa4 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.2.12.21
+Version: 1.2.12.22
 Date: 2019-04-01
 Authors@R: c(
   person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
diff --git a/NEWS.rmd b/NEWS.rmd
index 17ebccf7..c0c48ddc 100644
--- a/NEWS.rmd
+++ b/NEWS.rmd
@@ -13,7 +13,7 @@ output:
 
 
 
-### 1.2.12.21 Release Notes (2019-04-01) 
+### 1.2.12.22 Release Notes (2019-04-01) 
 
 
 
diff --git a/R/ErrorCrit_KGE.R b/R/ErrorCrit_KGE.R
index f6dbcd6d..c21d07ab 100644
--- a/R/ErrorCrit_KGE.R
+++ b/R/ErrorCrit_KGE.R
@@ -39,7 +39,7 @@ ErrorCrit_KGE <- function(InputsCrit, OutputsModel, warnings = TRUE, verbose = T
   
   
   ##Data_preparation_______________________________
-  VarObs <- InputsCrit$obs
+  VarObs <- InputsCrit$Obs
   VarObs[!InputsCrit$BoolCrit] <- NA
   if (InputsCrit$varObs == "Q") {
     VarSim <- OutputsModel$Qsim
diff --git a/R/ErrorCrit_KGE2.R b/R/ErrorCrit_KGE2.R
index a98bb7e0..f0675fe1 100644
--- a/R/ErrorCrit_KGE2.R
+++ b/R/ErrorCrit_KGE2.R
@@ -39,7 +39,7 @@ ErrorCrit_KGE2 <- function(InputsCrit, OutputsModel, warnings = TRUE, verbose =
   
   
   ##Data_preparation_______________________________
-  VarObs <- InputsCrit$obs
+  VarObs <- InputsCrit$Obs
   VarObs[!InputsCrit$BoolCrit] <- NA
   if (InputsCrit$varObs == "Q") {
     VarSim <- OutputsModel$Qsim
diff --git a/R/ErrorCrit_NSE.R b/R/ErrorCrit_NSE.R
index cf1e17f3..0d405857 100644
--- a/R/ErrorCrit_NSE.R
+++ b/R/ErrorCrit_NSE.R
@@ -39,7 +39,7 @@ ErrorCrit_NSE <- function(InputsCrit, OutputsModel, warnings = TRUE, verbose = T
   
   
   ##Data_preparation_______________________________
-  VarObs <- InputsCrit$obs
+  VarObs <- InputsCrit$Obs
   VarObs[!InputsCrit$BoolCrit] <- NA
   if (InputsCrit$varObs == "Q") {
     VarSim <- OutputsModel$Qsim
diff --git a/R/ErrorCrit_RMSE.R b/R/ErrorCrit_RMSE.R
index 68f71216..1f2a6243 100644
--- a/R/ErrorCrit_RMSE.R
+++ b/R/ErrorCrit_RMSE.R
@@ -39,7 +39,7 @@ ErrorCrit_RMSE <- function(InputsCrit, OutputsModel, warnings = TRUE, verbose =
   
   
   ##Data_preparation_______________________________
-  VarObs <- InputsCrit$obs
+  VarObs <- InputsCrit$Obs
   VarObs[!InputsCrit$BoolCrit] <- NA
   if (InputsCrit$varObs == "Q") {
     VarSim <- OutputsModel$Qsim
diff --git a/man/Calibration.Rd b/man/Calibration.Rd
index 1bd3b991..230a08c8 100644
--- a/man/Calibration.Rd
+++ b/man/Calibration.Rd
@@ -65,7 +65,7 @@ RunOptions <- CreateRunOptions(FUN_MOD = RunModel_GR4J,
 
 ## calibration criterion: preparation of the InputsCrit object
 InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, 
-                               RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
+                               RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
 
 ## preparation of CalibOptions object
 CalibOptions <- CreateCalibOptions(FUN_MOD = RunModel_GR4J, FUN_CALIB = Calibration_Michel)
@@ -86,12 +86,12 @@ plot(OutputsModel, Qobs = BasinObs$Qmm[Ind_Run])
 
 ## efficiency criterion: Nash-Sutcliffe Efficiency
 InputsCrit  <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, 
-                                RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
+                                RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
 OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 
 ## efficiency criterion: Kling-Gupta Efficiency
 InputsCrit  <- CreateInputsCrit(FUN_CRIT = ErrorCrit_KGE, InputsModel = InputsModel, 
-                                RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
+                                RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
 OutputsCrit <- ErrorCrit_KGE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 }
 
diff --git a/man/Calibration_Michel.Rd b/man/Calibration_Michel.Rd
index 0adba0f5..85870d7a 100644
--- a/man/Calibration_Michel.Rd
+++ b/man/Calibration_Michel.Rd
@@ -96,7 +96,7 @@ RunOptions <- CreateRunOptions(FUN_MOD = RunModel_GR4J, InputsModel = InputsMode
 
 ## calibration criterion: preparation of the InputsCrit object
 InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, 
-                               RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
+                               RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
 
 ## preparation of CalibOptions object
 CalibOptions <- CreateCalibOptions(FUN_MOD = RunModel_GR4J, FUN_CALIB = Calibration_Michel)
@@ -116,12 +116,12 @@ plot(OutputsModel, Qobs = BasinObs$Qmm[Ind_Run])
 
 ## efficiency criterion: Nash-Sutcliffe Efficiency
 InputsCrit  <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, 
-                                RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
+                                RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
 OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 
 ## efficiency criterion: Kling-Gupta Efficiency
 InputsCrit  <- CreateInputsCrit(FUN_CRIT = ErrorCrit_KGE, InputsModel = InputsModel, 
-                                RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
+                                RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
 OutputsCrit <- ErrorCrit_KGE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 }
 
diff --git a/man/CreateCalibOptions.Rd b/man/CreateCalibOptions.Rd
index c4a446d6..4ab48f35 100644
--- a/man/CreateCalibOptions.Rd
+++ b/man/CreateCalibOptions.Rd
@@ -105,7 +105,7 @@ RunOptions <- CreateRunOptions(FUN_MOD = RunModel_GR4J,
 
 ## calibration criterion: preparation of the InputsCrit object
 InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, 
-                               RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
+                               RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
 
 ## preparation of CalibOptions object
 CalibOptions <- CreateCalibOptions(FUN_MOD = RunModel_GR4J, FUN_CALIB = Calibration_Michel)
@@ -126,12 +126,12 @@ plot(OutputsModel, Qobs = BasinObs$Qmm[Ind_Run])
 
 ## efficiency criterion: Nash-Sutcliffe Efficiency
 InputsCrit  <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, 
-                                RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
+                                RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
 OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 
 ## efficiency criterion: Kling-Gupta Efficiency
 InputsCrit  <- CreateInputsCrit(FUN_CRIT = ErrorCrit_KGE, InputsModel = InputsModel, 
-                                RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
+                                RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
 OutputsCrit <- ErrorCrit_KGE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 }
 
diff --git a/man/CreateInputsCrit.Rd b/man/CreateInputsCrit.Rd
index b931f83f..cf963cf8 100644
--- a/man/CreateInputsCrit.Rd
+++ b/man/CreateInputsCrit.Rd
@@ -10,7 +10,7 @@
 
 \usage{
 CreateInputsCrit(FUN_CRIT, InputsModel, RunOptions,
-  Qobs, obs, varObs = "Q", BoolCrit = NULL,
+  Qobs, Obs, varObs = "Q", BoolCrit = NULL,
   transfo = "", weights = NULL,
   Ind_zeroes = NULL, epsilon = NULL,
   warnings = TRUE, verbose = TRUE)
@@ -26,11 +26,11 @@ CreateInputsCrit(FUN_CRIT, InputsModel, RunOptions,
 
 \item{Qobs}{(deprecated) [numeric (atomic or list)] series of observed discharges [mm/time step]}
 
-\item{obs}{[numeric (atomic or list)] series of observed variable ([mm/time step] for discharge or SWE, [-] for SCA)}
+\item{Obs}{[numeric (atomic or list)] series of observed variable ([mm/time step] for discharge or SWE, [-] for SCA)}
 
 \item{varObs}{(optional) [character (atomic or list)] names of the observed variable (\code{"Q"} by default, or one of \code{"SCA"}, \code{"SWE"}])}
 
-\item{BoolCrit}{(optional) [boolean (atomic or list)] boolean (the same length as \code{obs}) giving the time steps to consider in the computation (all time steps are considered by default)}
+\item{BoolCrit}{(optional) [boolean (atomic or list)] boolean (the same length as \code{Obs}) giving the time steps to consider in the computation (all time steps are considered by default)}
 
 \item{transfo}{(optional) [character (atomic or list)] name of the transformation (e.g. \code{""}, \code{"sqrt"}, \code{"log"}, \code{"inv"}, \code{"sort"})}
 
@@ -38,7 +38,7 @@ CreateInputsCrit(FUN_CRIT, InputsModel, RunOptions,
 
 \item{Ind_zeroes}{(deprecated) [numeric] indices of the time steps where zeroes are observed}
 
-\item{epsilon}{(optional) [numeric (atomic or list)] small value to add to all observations and simulations when \code{"log"} or \code{"inv"} transformations are used [same unit as \code{obs}]. See details}
+\item{epsilon}{(optional) [numeric (atomic or list)] small value to add to all observations and simulations when \code{"log"} or \code{"inv"} transformations are used [same unit as \code{Obs}]. See details}
 
 \item{warnings}{(optional) [boolean] boolean indicating if the warning messages are shown, default = \code{TRUE}}
 
@@ -50,16 +50,16 @@ CreateInputsCrit(FUN_CRIT, InputsModel, RunOptions,
 [list] object of class \emph{InputsCrit} containing the data required to evaluate the model outputs; it can include the following:
   \tabular{ll}{
     \emph{$FUN_CRIT  } \tab [function] error criterion function (e.g. \code{\link{ErrorCrit_RMSE}}, \code{\link{ErrorCrit_NSE}}) \cr
-    \emph{$obs       } \tab [numeric] series of observed variable(s) ([mm/time step] for discharge or SWE, [-] for SCA) \cr
+    \emph{$Obs       } \tab [numeric] series of observed variable(s) ([mm/time step] for discharge or SWE, [-] for SCA) \cr
     \emph{$varObs    } \tab [character] names of the observed variable(s) \cr
     \emph{$BoolCrit  } \tab [boolean] boolean giving the time steps considered in the computation \cr
     \emph{$transfo   } \tab [character] name of the transformation (e.g. \code{""}, \code{"sqrt"}, \code{"log"}, \code{"inv"}, \code{"sort"}) \cr
-    \emph{$epsilon   } \tab [numeric] small value to add to all observations and simulations when \code{"log"} or \code{"inv"} transformations are used [same unit as \code{obs}] \cr
+    \emph{$epsilon   } \tab [numeric] small value to add to all observations and simulations when \code{"log"} or \code{"inv"} transformations are used [same unit as \code{Obs}] \cr
     \emph{$weights   } \tab [numeric] vector (same length as \code{varObs}) giving the weights to use for elements of \code{FUN_CRIT} [-] \cr
   }
   
 When \code{weights = NULL}, \code{CreateInputsCrit} returns an object of class \emph{Single} that is  a list such as the one described above. \cr
-When \code{weights} contains at least one \code{NULL} value and \code{obs} contains a list of observations, \code{CreateInputsCrit} returns an object of class \emph{Multi} that is a list of lists such as the one described above. The \code{\link{ErrorCrit}} function will then compute the different criteria prepared by \code{CreateInputsCrit}. \cr 
+When \code{weights} contains at least one \code{NULL} value and \code{Obs} contains a list of observations, \code{CreateInputsCrit} returns an object of class \emph{Multi} that is a list of lists such as the one described above. The \code{\link{ErrorCrit}} function will then compute the different criteria prepared by \code{CreateInputsCrit}. \cr 
 When \code{weights} is a list of at least 2 numerical values, \code{CreateInputsCrit} returns an object of class \emph{Compo} that is a list of lists such as the one described above. This object will be useful to compute composite criterion with the \code{\link{ErrorCrit}} function. \cr
 To calculate composite or multiple criteria, it is necessary to use the \code{ErrorCrit} function. The other \code{ErrorCrit_*} functions (e.g. \code{\link{ErrorCrit_RMSE}}, \code{\link{ErrorCrit_NSE}}) can only use objects of class \emph{Single} (and not \emph{Multi} or \emph{Compo}). \cr
 }
@@ -74,7 +74,7 @@ Creation of the \code{InputsCrit} object required to the \code{ErrorCrit_*} func
 Users wanting to use \code{FUN_CRIT} functions that are not included in the package must create their own InputsCrit object accordingly. \cr \cr
 The epsilon value is useful when \code{"log"} or \code{"inv"} transformations are used (to avoid calculation of the inverse or of the logarithm of zero). The impact of this value and a recommendation about the epsilon value to use (usually one hundredth of average observation) are discussed in Pushpalatha et al. (2012) for NSE and in Santos et al. (2018) for KGE and KGE'. \cr \cr
 We do not advise computing KGE or KGE' with log-transformation as it might be wrongly influenced by discharge values close to 0 or 1 and the criterion value is dependent on the discharge unit. See Santos et al. (2018) for more details and alternative solutions (see the references list below). \cr \cr
-Users can set the following arguments as atomic or list: \code{FUN_CRIT}, \code{obs}, \code{varObs}, \code{BoolCrit}, \code{transfo}, \code{weights}. If the list format is chosen, all the lists must have the same length. \cr
+Users can set the following arguments as atomic or list: \code{FUN_CRIT}, \code{Obs}, \code{varObs}, \code{BoolCrit}, \code{transfo}, \code{weights}. If the list format is chosen, all the lists must have the same length. \cr
 Calculation of a single criterion (e.g. NSE computed on discharge) is prepared by providing to \code{CreateInputsCrit} arguments atomics only. \cr
 Calculation of multiple criteria (e.g. NSE computed on discharge and RMSE computed on discharge) is prepared by providing to \code{CreateInputsCrit} arguments lists except for \code{weights} that must be set as \code{NULL}. \cr
 Calculation of a composite criterion (e.g. the average between NSE computed on dscharge and NSE computed on log of discharge) is prepared by providing to \code{CreateInputsCrit} arguments lists including \code{weights}. \cr
@@ -107,7 +107,7 @@ OutputsModel <- RunModel_GR4J(InputsModel = InputsModel, RunOptions = RunOptions
 ## single efficiency criterion: Nash-Sutcliffe Efficiency
 InputsCritSingle <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE,
                                      InputsModel = InputsModel, RunOptions = RunOptions,
-                                     obs = list(BasinObs$Qmm[Ind_Run]),
+                                     Obs = list(BasinObs$Qmm[Ind_Run]),
                                      varObs = "Q", transfo = "",
                                      weights = NULL)
 str(InputsCritSingle)
@@ -116,7 +116,7 @@ invisible(ErrorCrit(InputsCrit = InputsCritSingle, OutputsModel = OutputsModel))
 ## 2 efficiency criteria: RMSE and Nash-Sutcliffe Efficiency
 InputsCritMulti <- CreateInputsCrit(FUN_CRIT = list(ErrorCrit_RMSE, ErrorCrit_NSE),
                                     InputsModel = InputsModel, RunOptions = RunOptions,
-                                    obs = list(BasinObs$Qmm[Ind_Run], BasinObs$Qmm[Ind_Run]),
+                                    Obs = list(BasinObs$Qmm[Ind_Run], BasinObs$Qmm[Ind_Run]),
                                     varObs = list("Q", "Q"), transfo = list("", "sqrt"),
                                     weights = NULL)
 str(InputsCritMulti)                                         
@@ -126,7 +126,7 @@ invisible(ErrorCrit(InputsCrit = InputsCritMulti, OutputsModel = OutputsModel))
 ##                                 both raw and log-transformed flows
 InputsCritCompo <- CreateInputsCrit(FUN_CRIT = list(ErrorCrit_NSE, ErrorCrit_NSE),
                                     InputsModel = InputsModel, RunOptions = RunOptions,
-                                    obs = list(BasinObs$Qmm[Ind_Run], BasinObs$Qmm[Ind_Run]),
+                                    Obs = list(BasinObs$Qmm[Ind_Run], BasinObs$Qmm[Ind_Run]),
                                     varObs = list("Q", "Q"), transfo = list("", "log"),
                                     weights = list(0.4, 0.6))
 str(InputsCritCompo)                                         
diff --git a/man/CreateInputsModel.Rd b/man/CreateInputsModel.Rd
index d5ddd9e4..a93f5130 100644
--- a/man/CreateInputsModel.Rd
+++ b/man/CreateInputsModel.Rd
@@ -95,7 +95,7 @@ plot(OutputsModel, Qobs = BasinObs$Qmm[Ind_Run])
 
 ## efficiency criterion: Nash-Sutcliffe Efficiency
 InputsCrit  <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, 
-                                RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
+                                RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
 OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 }
 
diff --git a/man/CreateRunOptions.Rd b/man/CreateRunOptions.Rd
index cce6f59d..716743ad 100644
--- a/man/CreateRunOptions.Rd
+++ b/man/CreateRunOptions.Rd
@@ -145,7 +145,7 @@ plot(OutputsModel, Qobs = BasinObs$Qmm[Ind_Run])
 ## efficiency criterion: Nash-Sutcliffe Efficiency
 InputsCrit  <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, 
                                 RunOptions = RunOptions,
-                                obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
+                                Obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
 OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 }
 
diff --git a/man/ErrorCrit.Rd b/man/ErrorCrit.Rd
index f22ba86a..81e6c396 100644
--- a/man/ErrorCrit.Rd
+++ b/man/ErrorCrit.Rd
@@ -82,7 +82,7 @@ OutputsModel <- RunModel_GR4J(InputsModel = InputsModel,
 ## single efficiency criterion: Nash-Sutcliffe Efficiency
 InputsCritSingle <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE,
                                      InputsModel = InputsModel, RunOptions = RunOptions,
-                                     obs = list(BasinObs$Qmm[Ind_Run]),
+                                     Obs = list(BasinObs$Qmm[Ind_Run]),
                                      varObs = "Q", transfo = "",
                                      weight = NULL) 
 str(ErrorCrit(InputsCrit = InputsCritSingle, OutputsModel = OutputsModel))
@@ -90,7 +90,7 @@ str(ErrorCrit(InputsCrit = InputsCritSingle, OutputsModel = OutputsModel))
 ## 2 efficiency critera:  RMSE and the Nash-Sutcliffe Efficiency
 InputsCritMulti <- CreateInputsCrit(FUN_CRIT = list(ErrorCrit_RMSE, ErrorCrit_NSE),
                                     InputsModel = InputsModel, RunOptions = RunOptions,
-                                    obs = list(BasinObs$Qmm[Ind_Run], BasinObs$Qmm[Ind_Run]),
+                                    Obs = list(BasinObs$Qmm[Ind_Run], BasinObs$Qmm[Ind_Run]),
                                     varObs = list("Q", "Q"), transfo = list("", "sqrt"),
                                     weight = NULL) 
 str(ErrorCrit(InputsCrit = InputsCritMulti, OutputsModel = OutputsModel))
@@ -99,7 +99,7 @@ str(ErrorCrit(InputsCrit = InputsCritMulti, OutputsModel = OutputsModel))
 ##                                 both raw and log-transformed flows
 InputsCritCompo <- CreateInputsCrit(FUN_CRIT = list(ErrorCrit_NSE, ErrorCrit_NSE),
                                     InputsModel = InputsModel, RunOptions = RunOptions,
-                                    obs = list(BasinObs$Qmm[Ind_Run], BasinObs$Qmm[Ind_Run]),
+                                    Obs = list(BasinObs$Qmm[Ind_Run], BasinObs$Qmm[Ind_Run]),
                                     varObs = list("Q", "Q"), transfo = list("", "log"),
                                     weight = list(0.4, 0.6)) 
 str(ErrorCrit(InputsCrit = InputsCritCompo, OutputsModel = OutputsModel))
diff --git a/man/ErrorCrit_KGE.Rd b/man/ErrorCrit_KGE.Rd
index 016436a9..98c32ffc 100644
--- a/man/ErrorCrit_KGE.Rd
+++ b/man/ErrorCrit_KGE.Rd
@@ -80,20 +80,20 @@ OutputsModel <- RunModel(InputsModel = InputsModel, RunOptions = RunOptions,
 
 ## efficiency criterion: Kling-Gupta Efficiency
 InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_KGE, InputsModel = InputsModel, 
-                               RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run])
+                               RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run])
 OutputsCrit <- ErrorCrit_KGE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 
 ## efficiency criterion: Kling-Gupta Efficiency on square-root-transformed flows
 transfo <- "sqrt"
 InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_KGE, InputsModel = InputsModel, 
-                               RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run],
+                               RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run],
                                transfo = transfo)
 OutputsCrit <- ErrorCrit_KGE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 
 ## efficiency criterion: Kling-Gupta Efficiency above a threshold (quant. 75 \%)
 BoolCrit <- BasinObs$Qmm[Ind_Run] >= quantile(BasinObs$Qmm[Ind_Run], 0.75, na.rm = TRUE)
 InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_KGE, InputsModel = InputsModel, 
-                               RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run],
+                               RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run],
                                BoolCrit = BoolCrit)
 OutputsCrit <- ErrorCrit_KGE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 }
diff --git a/man/ErrorCrit_KGE2.Rd b/man/ErrorCrit_KGE2.Rd
index 74dd3967..12585fc9 100644
--- a/man/ErrorCrit_KGE2.Rd
+++ b/man/ErrorCrit_KGE2.Rd
@@ -80,20 +80,20 @@ OutputsModel <- RunModel(InputsModel = InputsModel, RunOptions = RunOptions,
 
 ## efficiency criterion: Kling-Gupta Efficiency
 InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_KGE2, InputsModel = InputsModel, 
-                               RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run])
+                               RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run])
 OutputsCrit <- ErrorCrit_KGE2(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 
 ## efficiency criterion: Kling-Gupta Efficiency on square-root-transformed flows
 transfo <- "sqrt"
 InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_KGE2, InputsModel = InputsModel, 
-                               RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run],
+                               RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run],
                                transfo = transfo)
 OutputsCrit <- ErrorCrit_KGE2(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 
 ## efficiency criterion: Kling-Gupta Efficiency above a threshold (quant. 75 \%)
 BoolCrit <- BasinObs$Qmm[Ind_Run] >= quantile(BasinObs$Qmm[Ind_Run], 0.75, na.rm = TRUE)
 InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_KGE2, InputsModel = InputsModel, 
-                               RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run],
+                               RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run],
                                BoolCrit = BoolCrit)
 OutputsCrit <- ErrorCrit_KGE2(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 }
diff --git a/man/ErrorCrit_NSE.Rd b/man/ErrorCrit_NSE.Rd
index 1a5bece6..3df52292 100644
--- a/man/ErrorCrit_NSE.Rd
+++ b/man/ErrorCrit_NSE.Rd
@@ -73,20 +73,20 @@ OutputsModel <- RunModel(InputsModel = InputsModel, RunOptions = RunOptions,
 
 ## efficiency criterion: Nash-Sutcliffe Efficiency
 InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, 
-                               RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run])
+                               RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run])
 OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 
 ## efficiency criterion: Nash-Sutcliffe Efficiency on log-transformed flows
 transfo <- "log"
 InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, 
-                               RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run],
+                               RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run],
                                transfo = transfo)
 OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 
 ## efficiency criterion: Kling-Gupta Efficiency above a threshold (quant. 75 \%)
 BoolCrit <- BasinObs$Qmm[Ind_Run] >= quantile(BasinObs$Qmm[Ind_Run], 0.75, na.rm = TRUE)
 InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, 
-                               RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run],
+                               RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run],
                                BoolCrit = BoolCrit)
 OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 }
diff --git a/man/ErrorCrit_RMSE.Rd b/man/ErrorCrit_RMSE.Rd
index ea4431f6..86fb0631 100644
--- a/man/ErrorCrit_RMSE.Rd
+++ b/man/ErrorCrit_RMSE.Rd
@@ -71,20 +71,20 @@ OutputsModel <- RunModel(InputsModel = InputsModel, RunOptions = RunOptions,
 
 ## efficiency criterion: root-mean-square error
 InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_RMSE, InputsModel = InputsModel, 
-                               RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run])
+                               RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run])
 OutputsCrit <- ErrorCrit_RMSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 
 ## efficiency criterion: root-mean-square error on log-transformed flows
 transfo <- "log"
 InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_RMSE, InputsModel = InputsModel, 
-                               RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run],
+                               RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run],
                                transfo = transfo)
 OutputsCrit <- ErrorCrit_RMSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 
 ## efficiency criterion: Kling-Gupta Efficiency above a threshold (quant. 75 \%)
 BoolCrit <- BasinObs$Qmm[Ind_Run] >= quantile(BasinObs$Qmm[Ind_Run], 0.75, na.rm = TRUE)
 InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_RMSE, InputsModel = InputsModel, 
-                               RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run],
+                               RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run],
                                BoolCrit = BoolCrit)
 OutputsCrit <- ErrorCrit_RMSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 }
diff --git a/man/RunModel.Rd b/man/RunModel.Rd
index e7504cf1..079f21ca 100644
--- a/man/RunModel.Rd
+++ b/man/RunModel.Rd
@@ -61,7 +61,7 @@ plot(OutputsModel, Qobs = BasinObs$Qmm[Ind_Run])
 
 ## efficiency criterion: Nash-Sutcliffe Efficiency
 InputsCrit  <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, 
-                                RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
+                                RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
 OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 }
 
diff --git a/man/RunModel_CemaNeigeGR4J.Rd b/man/RunModel_CemaNeigeGR4J.Rd
index 8607b4ed..23ebb869 100644
--- a/man/RunModel_CemaNeigeGR4J.Rd
+++ b/man/RunModel_CemaNeigeGR4J.Rd
@@ -118,7 +118,7 @@ plot(OutputsModel, Qobs = BasinObs$Qmm[Ind_Run])
 
 ## efficiency criterion: Nash-Sutcliffe Efficiency
 InputsCrit  <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, 
-                                RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
+                                RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
 OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 
 
@@ -139,7 +139,7 @@ plot(OutputsModel, Qobs = BasinObs$Qmm[Ind_Run])
 
 ## efficiency criterion: Nash-Sutcliffe Efficiency
 InputsCrit  <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, 
-                                RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
+                                RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
 OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 }
 
diff --git a/man/RunModel_CemaNeigeGR5J.Rd b/man/RunModel_CemaNeigeGR5J.Rd
index 7e8bd17a..7584f332 100644
--- a/man/RunModel_CemaNeigeGR5J.Rd
+++ b/man/RunModel_CemaNeigeGR5J.Rd
@@ -116,7 +116,7 @@ plot(OutputsModel, Qobs = BasinObs$Qmm[Ind_Run])
 
 ## efficiency criterion: Nash-Sutcliffe Efficiency
 InputsCrit  <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, 
-                                RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
+                                RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
 OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 
 
@@ -133,7 +133,7 @@ plot(OutputsModel, Qobs = BasinObs$Qmm[Ind_Run])
 
 ## efficiency criterion: Nash-Sutcliffe Efficiency
 InputsCrit  <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, 
-                                RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
+                                RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
 OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 }
 
diff --git a/man/RunModel_CemaNeigeGR6J.Rd b/man/RunModel_CemaNeigeGR6J.Rd
index 50a55e8f..8969f3b2 100644
--- a/man/RunModel_CemaNeigeGR6J.Rd
+++ b/man/RunModel_CemaNeigeGR6J.Rd
@@ -122,7 +122,7 @@ plot(OutputsModel, Qobs = BasinObs$Qmm[Ind_Run])
 
 ## efficiency criterion: Nash-Sutcliffe Efficiency
 InputsCrit  <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, 
-                                RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
+                                RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
 OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 
 
@@ -143,7 +143,7 @@ plot(OutputsModel, Qobs = BasinObs$Qmm[Ind_Run])
 
 ## efficiency criterion: Nash-Sutcliffe Efficiency
 InputsCrit  <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, 
-                                RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
+                                RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
 OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 }
 
diff --git a/man/RunModel_GR1A.Rd b/man/RunModel_GR1A.Rd
index 400576f4..ac155c02 100644
--- a/man/RunModel_GR1A.Rd
+++ b/man/RunModel_GR1A.Rd
@@ -88,7 +88,7 @@ plot(OutputsModel, Qobs = BasinObs$Qmm[Ind_Run])
 
 ## efficiency criterion: Nash-Sutcliffe Efficiency
 InputsCrit  <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, 
-                                RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
+                                RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
 OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 }
 
diff --git a/man/RunModel_GR2M.Rd b/man/RunModel_GR2M.Rd
index f00869ed..09f1c891 100644
--- a/man/RunModel_GR2M.Rd
+++ b/man/RunModel_GR2M.Rd
@@ -94,7 +94,7 @@ plot(OutputsModel, Qobs = BasinObs$Qmm[Ind_Run])
 
 ## efficiency criterion: Nash-Sutcliffe Efficiency
 InputsCrit  <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, 
-                                RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
+                                RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
 OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 }
 
diff --git a/man/RunModel_GR4H.Rd b/man/RunModel_GR4H.Rd
index 2a05b06b..2d574865 100644
--- a/man/RunModel_GR4H.Rd
+++ b/man/RunModel_GR4H.Rd
@@ -90,7 +90,7 @@ plot(OutputsModel, Qobs = BasinObs$Qmm[Ind_Run])
 
 ## efficiency criterion: Nash-Sutcliffe Efficiency
 InputsCrit  <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel,
-                                RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
+                                RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
 OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 }
 
diff --git a/man/RunModel_GR4J.Rd b/man/RunModel_GR4J.Rd
index 711477bc..d26c72b0 100644
--- a/man/RunModel_GR4J.Rd
+++ b/man/RunModel_GR4J.Rd
@@ -99,7 +99,7 @@ plot(OutputsModel, Qobs = BasinObs$Qmm[Ind_Run])
 
 ## efficiency criterion: Nash-Sutcliffe Efficiency
 InputsCrit  <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, 
-                                RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
+                                RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
 OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 }
 
diff --git a/man/RunModel_GR5J.Rd b/man/RunModel_GR5J.Rd
index e89ac81c..487dd904 100644
--- a/man/RunModel_GR5J.Rd
+++ b/man/RunModel_GR5J.Rd
@@ -100,7 +100,7 @@ plot(OutputsModel, Qobs = BasinObs$Qmm[Ind_Run])
 
 ## efficiency criterion: Nash-Sutcliffe Efficiency
 InputsCrit  <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, 
-                                RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
+                                RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
 OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 }
 
diff --git a/man/RunModel_GR6J.Rd b/man/RunModel_GR6J.Rd
index ded1e431..d87caa09 100644
--- a/man/RunModel_GR6J.Rd
+++ b/man/RunModel_GR6J.Rd
@@ -103,7 +103,7 @@ plot(OutputsModel, Qobs = BasinObs$Qmm[Ind_Run])
 
 ## efficiency criterion: Nash-Sutcliffe Efficiency
 InputsCrit  <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, 
-                                RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
+                                RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
 OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
 }
 
diff --git a/vignettes/V01_get_started.Rmd b/vignettes/V01_get_started.Rmd
index cf4105ab..f7c029e2 100644
--- a/vignettes/V01_get_started.Rmd
+++ b/vignettes/V01_get_started.Rmd
@@ -142,13 +142,13 @@ The `CreateInputsCrit()` function allows to prepare the input in order to calcul
   * `FUN_CRIT`: the name of the error criterion function (the available functions are introduced later on)
   * `InputsModel`: the inputs of the hydrological model previously prepared by the `CreateInputsModel()` function
   * `RunOptions`: the options of the hydrological model previously prepared by the `CreateRunOptions()` function 
-  * `Qobs`: the observed discharge expressed in *mm/time step*
+  * `Obs`: the observed discharge expressed in *mm/time step*
 
 Missing values (`NA`) are **allowed** for observed discharge.
 
 ```{r}
 InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, 
-                               RunOptions = RunOptions, Qobs = BasinObs$Qmm[Ind_Run])
+                               RunOptions = RunOptions, Obs = BasinObs$Qmm[Ind_Run])
 str(InputsCrit)
 ```
 
@@ -240,7 +240,7 @@ Although it is possible for the user to design its own graphics from the outputs
   * correlation plot between simulated and observed discharge (if observed discharge provided)
   
 ```{r,eval=F}
-plot(OutputsModel, Qobs = BasinObs$Qmm[Ind_Run])
+plot(OutputsModel, Obs = BasinObs$Qmm[Ind_Run])
 ```
 
 Moreover, if the CemaNeige model is used, the air temperature and the simulated snowpack water equivalent time series are plotted. 
diff --git a/vignettes/V03_param_sets_GR4J.Rmd b/vignettes/V03_param_sets_GR4J.Rmd
index ff734531..8f9897dd 100644
--- a/vignettes/V03_param_sets_GR4J.Rmd
+++ b/vignettes/V03_param_sets_GR4J.Rmd
@@ -86,7 +86,7 @@ RunOptions_Cal <- CreateRunOptions(FUN_MOD = RunModel_GR4J,
 
 ## efficiency criterion: Nash-Sutcliffe Efficiency
 InputsCrit_Cal  <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, 
-                                    RunOptions = RunOptions_Cal, Qobs = BasinObs$Qmm[Ind_Cal])
+                                    RunOptions = RunOptions_Cal, Obs = BasinObs$Qmm[Ind_Cal])
 
 
 ## ---- validation step
@@ -101,7 +101,7 @@ RunOptions_Val <- CreateRunOptions(FUN_MOD = RunModel_GR4J,
 
 ## efficiency criterion (Nash-Sutcliffe Efficiency) on the validation period
 InputsCrit_Val  <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, 
-                                RunOptions = RunOptions_Val, Qobs = BasinObs$Qmm[Ind_Val])
+                                RunOptions = RunOptions_Val, Obs = BasinObs$Qmm[Ind_Val])
 
 ```
 
diff --git a/vignettes/V04_cemaneige_hysteresis.Rmd b/vignettes/V04_cemaneige_hysteresis.Rmd
index cf7c2315..289c9c92 100644
--- a/vignettes/V04_cemaneige_hysteresis.Rmd
+++ b/vignettes/V04_cemaneige_hysteresis.Rmd
@@ -101,7 +101,7 @@ In order to calibrate and assess the model performance, we will follow the recom
 ## efficiency criterion: 75 % KGE'(Q) + 5 % KGE'(SCA) on each of the 5 layers
 InputsCrit_Cal  <- CreateInputsCrit(FUN_CRIT = rep("ErrorCrit_KGE2", 6),
                                     InputsModel = InputsModel, RunOptions = RunOptions_Cal,
-                                    obs = list(BasinObs$Qmm[Ind_Cal],
+                                    Obs = list(BasinObs$Qmm[Ind_Cal],
                                                BasinObs$SCA1[Ind_Cal],
                                                BasinObs$SCA2[Ind_Cal],
                                                BasinObs$SCA3[Ind_Cal],
@@ -112,7 +112,7 @@ InputsCrit_Cal  <- CreateInputsCrit(FUN_CRIT = rep("ErrorCrit_KGE2", 6),
 
 InputsCrit_Val  <- CreateInputsCrit(FUN_CRIT = rep("ErrorCrit_KGE2", 6),
                                     InputsModel = InputsModel, RunOptions = RunOptions_Val,
-                                    obs = list(BasinObs$Qmm[Ind_Val],
+                                    Obs = list(BasinObs$Qmm[Ind_Val],
                                                BasinObs$SCA1[Ind_Val],
                                                BasinObs$SCA2[Ind_Val],
                                                BasinObs$SCA3[Ind_Val],
@@ -191,7 +191,7 @@ RunOptions_Val_NoHyst <- CreateRunOptions(FUN_MOD = RunModel_CemaNeigeGR4J,
 InputsCrit_Cal_NoHyst <- CreateInputsCrit(FUN_CRIT = ErrorCrit_KGE2,
                                           InputsModel = InputsModel,
                                           RunOptions = RunOptions_Cal_NoHyst,
-                                          obs = BasinObs$Qmm[Ind_Cal], varObs = "Q")
+                                          Obs = BasinObs$Qmm[Ind_Cal], varObs = "Q")
 
 ## preparation of CalibOptions object
 CalibOptions_NoHyst <- CreateCalibOptions(FUN_MOD = RunModel_CemaNeigeGR4J,
-- 
GitLab