diff --git a/inst/doc/airGR.Rmd b/inst/doc/airGR.Rmd index 247ee2fcece92b5728d4bda9323c52088d7b1027..629e4bf9fde24751ab8e31c64cef46324dd1086e 100644 --- a/inst/doc/airGR.Rmd +++ b/inst/doc/airGR.Rmd @@ -250,10 +250,8 @@ To evaluate the efficiency of the model, it is possible to use the same criterio ```{r} OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel) -str(OutputsCrit) ``` ```{r} OutputsCrit <- ErrorCrit_KGE(InputsCrit = InputsCrit, OutputsModel = OutputsModel) -str(OutputsCrit) ``` diff --git a/inst/doc/airGR.html b/inst/doc/airGR.html index 445c8eb96bf1fd2589393c396b5c1dfe02aa59e8..014d86b90bad4b7dc38bc2e9f15bda9c032a91f5 100644 --- a/inst/doc/airGR.html +++ b/inst/doc/airGR.html @@ -220,10 +220,9 @@ code > span.in { color: #60a0b0; font-weight: bold; font-style: italic; } /* Inf </ul> <div class="sourceCode"><pre class="sourceCode r"><code class="sourceCode r">CalibOptions <-<span class="st"> </span><span class="kw">CreateCalibOptions</span>(<span class="dt">FUN_MOD =</span> RunModel_GR4J, <span class="dt">FUN_CALIB =</span> Calibration_Michel) <span class="kw">str</span>(CalibOptions)</code></pre></div> -<pre><code>## List of 4 +<pre><code>## List of 3 ## $ FixedParam : logi [1:4] NA NA NA NA ## $ SearchRanges : num [1:2, 1:4] 4.59e-05 2.18e+04 -1.09e+04 1.09e+04 4.59e-05 ... -## $ StartParam : num [1:4] 247.151 -0.649 42.098 1.944 ## $ StartParamDistrib: num [1:3, 1:4] 169.017 247.151 432.681 -2.376 -0.649 ... ## - attr(*, "class")= chr [1:3] "CalibOptions" "GR4J" "HBAN"</code></pre> </div> @@ -311,24 +310,13 @@ Param</code></pre></div> <div id="efficiency-criterion" class="section level2"> <h2>Efficiency criterion</h2> <p>To evaluate the efficiency of the model, it is possible to use the same criterion as defined at the calibration step or to use an other criterion.</p> -<div class="sourceCode"><pre class="sourceCode r"><code class="sourceCode r">OutputsCrit <-<span class="st"> </span><span class="kw">ErrorCrit_NSE</span>(<span class="dt">InputsCrit =</span> InputsCrit, <span class="dt">OutputsModel =</span> OutputsModel) -<span class="kw">str</span>(OutputsCrit)</code></pre></div> -<pre><code>## List of 5 -## $ CritValue : num 0.799 -## $ CritName : chr "NSE[Q]" -## $ CritBestValue : num 1 -## $ Multiplier : num -1 -## $ Ind_notcomputed: int [1:40] 2405 2406 2407 2408 2409 2410 2411 2412 2413 2414 ...</code></pre> -<div class="sourceCode"><pre class="sourceCode r"><code class="sourceCode r">OutputsCrit <-<span class="st"> </span><span class="kw">ErrorCrit_KGE</span>(<span class="dt">InputsCrit =</span> InputsCrit, <span class="dt">OutputsModel =</span> OutputsModel) -<span class="kw">str</span>(OutputsCrit)</code></pre></div> -<pre><code>## List of 7 -## $ CritValue : num 0.785 -## $ CritName : chr "KGE[Q]" -## $ SubCritValues : num [1:3] 0.898 0.816 1.044 -## $ SubCritNames : chr [1:3] "KGE[Q] rPEARSON(sim vs. obs)" "KGE[Q] STDEVsim/STDEVobs" "KGE[Q] MEANsim/MEANobs" -## $ CritBestValue : num 1 -## $ Multiplier : num -1 -## $ Ind_notcomputed: int [1:40] 2405 2406 2407 2408 2409 2410 2411 2412 2413 2414 ...</code></pre> +<div class="sourceCode"><pre class="sourceCode r"><code class="sourceCode r">OutputsCrit <-<span class="st"> </span><span class="kw">ErrorCrit_NSE</span>(<span class="dt">InputsCrit =</span> InputsCrit, <span class="dt">OutputsModel =</span> OutputsModel)</code></pre></div> +<pre><code>## Crit. NSE[Q] = 0.7985</code></pre> +<div class="sourceCode"><pre class="sourceCode r"><code class="sourceCode r">OutputsCrit <-<span class="st"> </span><span class="kw">ErrorCrit_KGE</span>(<span class="dt">InputsCrit =</span> InputsCrit, <span class="dt">OutputsModel =</span> OutputsModel)</code></pre></div> +<pre><code>## Crit. KGE[Q] = 0.7855</code></pre> +<pre><code>## SubCrit. KGE[Q] cor(sim, obs, "pearson") = 0.8983 +## SubCrit. KGE[Q] sd(sim)/sd(obs) = 0.8163 +## SubCrit. KGE[Q] mean(sim)/mean(obs) = 1.0439</code></pre> </div> </div> diff --git a/man/Calibration.Rd b/man/Calibration.Rd index 8c363568d2206923518cf342e6830ced5a9b38c2..c1b797117f817b0ed4f906e3d5eb67b060939879 100644 --- a/man/Calibration.Rd +++ b/man/Calibration.Rd @@ -75,17 +75,11 @@ plot_OutputsModel(OutputsModel = OutputsModel, Qobs = BasinObs$Qmm[Ind_Run]) InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, RunOptions = RunOptions, Qobs = BasinObs$Qmm[Ind_Run]) OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel) -cat(paste(" Crit ", OutputsCrit$CritName, " ", - round(OutputsCrit$CritValue, 4), "\\n", sep = "")) ## efficiency criterion: Kling-Gupta Efficiency InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_KGE, InputsModel = InputsModel, RunOptions = RunOptions, Qobs = BasinObs$Qmm[Ind_Run]) OutputsCrit <- ErrorCrit_KGE(InputsCrit = InputsCrit, OutputsModel = OutputsModel) -cat(paste(" Crit ", OutputsCrit$CritName, " ", - round(OutputsCrit$CritValue, 4), "\\n", sep = "")) - - } \author{ Laurent Coron (June 2014) diff --git a/man/Calibration_Michel.Rd b/man/Calibration_Michel.Rd index 8dc0d9253b33bbd074dc42e88627aba6adcb4d27..91caa160e5fb64e2413d73e368b061ccdfc2928d 100644 --- a/man/Calibration_Michel.Rd +++ b/man/Calibration_Michel.Rd @@ -102,16 +102,11 @@ plot_OutputsModel(OutputsModel = OutputsModel, Qobs = BasinObs$Qmm[Ind_Run]) InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, RunOptions = RunOptions, Qobs = BasinObs$Qmm[Ind_Run]) OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel) -cat(paste(" Crit ", OutputsCrit$CritName, " ", - round(OutputsCrit$CritValue, 4), "\\n", sep = "")) ## efficiency criterion: Kling-Gupta Efficiency InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_KGE, InputsModel = InputsModel, RunOptions = RunOptions, Qobs = BasinObs$Qmm[Ind_Run]) OutputsCrit <- ErrorCrit_KGE(InputsCrit = InputsCrit, OutputsModel = OutputsModel) -cat(paste(" Crit ", OutputsCrit$CritName, " ", - round(OutputsCrit$CritValue, 4), "\\n", sep = "")) - } \author{ Laurent Coron, Claude Michel (August 2013) diff --git a/man/CreateInputsCrit.Rd b/man/CreateInputsCrit.Rd index 7f6e2d262d5f37c3bcec2ae6374fb673df7ed282..0a4002d733fd664e09a1d256f05a7468873eedf9 100644 --- a/man/CreateInputsCrit.Rd +++ b/man/CreateInputsCrit.Rd @@ -67,7 +67,6 @@ OutputsModel <- RunModel(InputsModel = InputsModel, RunOptions = RunOptions, InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, RunOptions = RunOptions, Qobs = BasinObs$Qmm[Ind_Run]) OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel) -cat(paste(" Crit ", OutputsCrit$CritName, " ", round(OutputsCrit$CritValue, 4), "\\n", sep = "")) ## efficiency criterion: Nash-Sutcliffe Efficiency on log-transformed flows transfo <- "log" @@ -75,8 +74,6 @@ InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsMod RunOptions = RunOptions, Qobs = BasinObs$Qmm[Ind_Run], transfo = transfo) OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel) -cat(paste(" Crit ", OutputsCrit$CritName, " ", - round(OutputsCrit$CritValue, 4), "\\n", sep = "")) ## efficiency criterion: Nash-Sutcliffe Efficiency above a threshold (q75\%) BoolCrit <- rep(TRUE, length(BasinObs$Qmm[Ind_Run])); @@ -85,15 +82,11 @@ InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsMod RunOptions = RunOptions, Qobs = BasinObs$Qmm[Ind_Run], BoolCrit = BoolCrit) OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel) -cat(paste(" Crit ", OutputsCrit$CritName, " ", round(OutputsCrit$CritValue, 4), "\\n", sep = "")) ## efficiency criterion: Kling-Gupta Efficiency InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_KGE, InputsModel = InputsModel, RunOptions = RunOptions, Qobs = BasinObs$Qmm[Ind_Run]) OutputsCrit <- ErrorCrit_KGE(InputsCrit = InputsCrit, OutputsModel = OutputsModel) -cat(paste(" Crit ", OutputsCrit$CritName, " ", round(OutputsCrit$CritValue, 4), "\\n", sep = "")) -cat(paste("SubCrit ", OutputsCrit$SubCritNames, " ", - round(OutputsCrit$SubCritValues, 4), "\\n", sep = "")) ## efficiency criterion: Kling-Gupta Efficiency below a threshold (q10\%) on log-trqansformed flows transfo <- "log" @@ -103,11 +96,6 @@ InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_KGE, InputsModel = InputsModel,RunOptions = RunOptions, Qobs = BasinObs$Qmm[Ind_Run], BoolCrit = BoolCrit, transfo = transfo) OutputsCrit <- ErrorCrit_KGE(InputsCrit = InputsCrit, OutputsModel = OutputsModel) -cat(paste(" Crit ", OutputsCrit$CritName, " ", round(OutputsCrit$CritValue, 4), "\\n", sep = "")) -cat(paste("SubCrit ", OutputsCrit$SubCritNames, " ", - round(OutputsCrit$SubCritValues, 4), "\\n", sep = "")) - - } \author{ Laurent Coron (June 2014) diff --git a/man/CreateInputsModel.Rd b/man/CreateInputsModel.Rd index 463ccaddc16c00597da3ab28da0ede0771af09e5..5efb8f7e843f287548e2211a567db037b1ffa7de 100644 --- a/man/CreateInputsModel.Rd +++ b/man/CreateInputsModel.Rd @@ -78,7 +78,6 @@ plot_OutputsModel(OutputsModel = OutputsModel, Qobs = BasinObs$Qmm[Ind_Run]) InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, RunOptions = RunOptions, Qobs = BasinObs$Qmm[Ind_Run]) OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel) -cat(paste(" Crit ", OutputsCrit$CritName, " ", round(OutputsCrit$CritValue, 4), "\\n", sep = "")) } \author{ diff --git a/man/CreateRunOptions.Rd b/man/CreateRunOptions.Rd index ab45807eff4e1c72f11507fd6c1534668e00da10..05b97a76769d3c028fe6e630d5257231d0cd566e 100644 --- a/man/CreateRunOptions.Rd +++ b/man/CreateRunOptions.Rd @@ -111,8 +111,6 @@ plot_OutputsModel(OutputsModel = OutputsModel, Qobs = BasinObs$Qmm[Ind_Run]) InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, RunOptions = RunOptions, Qobs = BasinObs$Qmm[Ind_Run]) OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel) -cat(paste(" Crit ", OutputsCrit$CritName, " ", round(OutputsCrit$CritValue, 4), "\\n", sep = "")) - } \author{ Laurent Coron (June 2014) diff --git a/man/ErrorCrit.Rd b/man/ErrorCrit.Rd index c035b961a142ae11528eabf2583683eff352ea00..3b6bbb23c936df76ab46667d19d1e2db359be44a 100644 --- a/man/ErrorCrit.Rd +++ b/man/ErrorCrit.Rd @@ -3,16 +3,18 @@ \alias{ErrorCrit} \title{Error criterion using the provided function} \usage{ -ErrorCrit(InputsCrit, OutputsModel, FUN_CRIT, verbose = TRUE) +ErrorCrit(InputsCrit, OutputsModel, FUN_CRIT, warnings = TRUE, verbose = TRUE) } \arguments{ \item{InputsCrit}{[object of class \emph{InputsCrit}] see \code{\link{CreateInputsCrit}} for details} \item{OutputsModel}{[object of class \emph{OutputsModel}] see \code{\link{RunModel_GR4J}} or \code{\link{RunModel_CemaNeigeGR4J}} for details} -\item{FUN_CRIT}{[function] error criterion function (e.g. ErrorCrit_RMSE, ErrorCrit_NSE)} +\item{FUN_CRIT}{[function] error criterion function (e.g. \code{ErrorCrit_RMSE}, \code{ErrorCrit_NSE})} -\item{verbose}{(optional) [boolean] boolean indicating if the function is run in verbose mode or not, default=TRUE} +\item{warnings}{(optional) [boolean] boolean indicating if the warning messages are shown, default = \code{TRUE}} + +\item{verbose}{(optional) [boolean] boolean indicating if the function is run in verbose mode or not, default = \code{TRUE}} } \value{ [list] list containing the function outputs, see \code{\link{ErrorCrit_RMSE}} or \code{\link{ErrorCrit_NSE}} for details @@ -47,7 +49,6 @@ OutputsModel <- RunModel(InputsModel = InputsModel, RunOptions = RunOptions, InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, RunOptions = RunOptions, Qobs = BasinObs$Qmm[Ind_Run]) OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel) -cat(paste(" Crit ", OutputsCrit$CritName, " ", round(OutputsCrit$CritValue, 4), "\\n", sep = "")) ## efficiency criterion: Nash-Sutcliffe Efficiency on log-transformed flows transfo <- "log" @@ -55,7 +56,6 @@ InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsMod RunOptions = RunOptions, Qobs = BasinObs$Qmm[Ind_Run], transfo = transfo) OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel) -cat(paste(" Crit ", OutputsCrit$CritName, " ", round(OutputsCrit$CritValue, 4), "\\n", sep = "")) ## efficiency criterion: Nash-Sutcliffe Efficiency above a threshold (q75\%) BoolCrit <- rep(TRUE, length(BasinObs$Qmm[Ind_Run])) @@ -64,15 +64,11 @@ InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsMod RunOptions = RunOptions, Qobs = BasinObs$Qmm[Ind_Run], BoolCrit = BoolCrit) OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel) -cat(paste(" Crit ", OutputsCrit$CritName, " ", round(OutputsCrit$CritValue, 4), "\\n", sep = "")) ## efficiency criterion: Kling-Gupta Efficiency InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_KGE, InputsModel = InputsModel, RunOptions = RunOptions, Qobs = BasinObs$Qmm[Ind_Run]) OutputsCrit <- ErrorCrit_KGE(InputsCrit = InputsCrit, OutputsModel = OutputsModel) -cat(paste(" Crit ", OutputsCrit$CritName, " ", round(OutputsCrit$CritValue, 4), "\\n", sep = "")) -cat(paste("SubCrit ", OutputsCrit$SubCritNames, " ", - round(OutputsCrit$SubCritValues, 4), "\\n", sep = "")) ## efficiency criterion: Kling-Gupta Efficiency below a threshold (q10\%) on log-trqansformed flows transfo <- "log" @@ -82,11 +78,6 @@ InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_KGE, InputsModel = InputsMod RunOptions = RunOptions, Qobs = BasinObs$Qmm[Ind_Run], BoolCrit = BoolCrit, transfo = transfo) OutputsCrit <- ErrorCrit_KGE(InputsCrit = InputsCrit, OutputsModel = OutputsModel) -cat(paste(" Crit ", OutputsCrit$CritName, " ", round(OutputsCrit$CritValue, 4), "\\n", sep = "")) -cat(paste("SubCrit ", OutputsCrit$SubCritNames, " ", - round(OutputsCrit$SubCritValues, 4), "\\n", sep = "")) - - } \author{ Laurent Coron (June 2014) diff --git a/man/ErrorCrit_KGE.Rd b/man/ErrorCrit_KGE.Rd index 9cf7e460ffe7000ee7f747f660ebee69ee86866e..0592ca5a3da7f37eb4cdef92a9aae822e49bce5b 100644 --- a/man/ErrorCrit_KGE.Rd +++ b/man/ErrorCrit_KGE.Rd @@ -3,14 +3,16 @@ \alias{ErrorCrit_KGE} \title{Error criterion based on the KGE formula} \usage{ -ErrorCrit_KGE(InputsCrit, OutputsModel, verbose = TRUE) +ErrorCrit_KGE(InputsCrit, OutputsModel, warnings = TRUE, verbose = TRUE) } \arguments{ \item{InputsCrit}{[object of class \emph{InputsCrit}] see \code{\link{CreateInputsCrit}} for details} \item{OutputsModel}{[object of class \emph{OutputsModel}] see \code{\link{RunModel_GR4J}} or \code{\link{RunModel_CemaNeigeGR4J}} for details} -\item{verbose}{(optional) [boolean] boolean indicating if the function is run in verbose mode or not, default=TRUE} +\item{warnings}{(optional) [boolean] boolean indicating if the warning messages are shown, default = \code{TRUE}} + +\item{verbose}{(optional) [boolean] boolean indicating if the function is run in verbose mode or not, default = \code{TRUE}} } \value{ [list] list containing the function outputs organised as follows: diff --git a/man/ErrorCrit_KGE2.Rd b/man/ErrorCrit_KGE2.Rd index 2c76f9fdd75a226ba1269d372d7951b653ff32fe..f16d154490e7aed58c735c4b951fe8f3b812cec6 100644 --- a/man/ErrorCrit_KGE2.Rd +++ b/man/ErrorCrit_KGE2.Rd @@ -3,14 +3,16 @@ \alias{ErrorCrit_KGE2} \title{Error criterion based on the KGE' formula} \usage{ -ErrorCrit_KGE2(InputsCrit, OutputsModel, verbose = TRUE) +ErrorCrit_KGE2(InputsCrit, OutputsModel, warnings = TRUE, verbose = TRUE) } \arguments{ \item{InputsCrit}{[object of class \emph{InputsCrit}] see \code{\link{CreateInputsCrit}} for details} \item{OutputsModel}{[object of class \emph{OutputsModel}] see \code{\link{RunModel_GR4J}} or \code{\link{RunModel_CemaNeigeGR4J}} for details} -\item{verbose}{(optional) [boolean] boolean indicating if the function is run in verbose mode or not, default=TRUE} +\item{warnings}{(optional) [boolean] boolean indicating if the warning messages are shown, default = \code{TRUE}} + +\item{verbose}{(optional) [boolean] boolean indicating if the function is run in verbose mode or not, default = \code{TRUE}} } \value{ [list] list containing the function outputs organised as follows: diff --git a/man/ErrorCrit_NSE.Rd b/man/ErrorCrit_NSE.Rd index 9f5d67fbc17084dd3dcacf2689ecb534fc25f0af..8db06dbd921ac3948e30d6bd307c21961f278089 100644 --- a/man/ErrorCrit_NSE.Rd +++ b/man/ErrorCrit_NSE.Rd @@ -3,14 +3,16 @@ \alias{ErrorCrit_NSE} \title{Error criterion based on the NSE formula} \usage{ -ErrorCrit_NSE(InputsCrit, OutputsModel, verbose = TRUE) +ErrorCrit_NSE(InputsCrit, OutputsModel, warnings = TRUE, verbose = TRUE) } \arguments{ \item{InputsCrit}{[object of class \emph{InputsCrit}] see \code{\link{CreateInputsCrit}} for details} \item{OutputsModel}{[object of class \emph{OutputsModel}] see \code{\link{RunModel_GR4J}} or \code{\link{RunModel_CemaNeigeGR4J}} for details} -\item{verbose}{(optional) [boolean] boolean indicating if the function is run in verbose mode or not, default=TRUE} +\item{warnings}{(optional) [boolean] boolean indicating if the warning messages are shown, default = \code{TRUE}} + +\item{verbose}{(optional) [boolean] boolean indicating if the function is run in verbose mode or not, default = \code{TRUE}} } \value{ [list] list containing the function outputs organised as follows: diff --git a/man/ErrorCrit_RMSE.Rd b/man/ErrorCrit_RMSE.Rd index 9802a29cc2114c0443552e96e7eadff4733d4ffa..35040f568b807f60505f3da77712b122caa94b73 100644 --- a/man/ErrorCrit_RMSE.Rd +++ b/man/ErrorCrit_RMSE.Rd @@ -3,14 +3,16 @@ \alias{ErrorCrit_RMSE} \title{Error criterion based on the RMSE} \usage{ -ErrorCrit_RMSE(InputsCrit, OutputsModel, verbose = TRUE) +ErrorCrit_RMSE(InputsCrit, OutputsModel, warnings = TRUE, verbose = TRUE) } \arguments{ \item{InputsCrit}{[object of class \emph{InputsCrit}] see \code{\link{CreateInputsCrit}} for details} \item{OutputsModel}{[object of class \emph{OutputsModel}] see \code{\link{RunModel_GR4J}} or \code{\link{RunModel_CemaNeigeGR4J}} for details} -\item{verbose}{(optional) [boolean] boolean indicating if the function is run in verbose mode or not, default=TRUE} +\item{warnings}{(optional) [boolean] boolean indicating if the warning messages are shown, default = \code{TRUE}} + +\item{verbose}{(optional) [boolean] boolean indicating if the function is run in verbose mode or not, default = \code{TRUE}} } \value{ [list] list containing the function outputs organised as follows: diff --git a/man/RunModel.Rd b/man/RunModel.Rd index e7e3e3a9e907a7e9b94f24521e7612beb1fbacc4..481ac62b0af5af635640adaf624098e1876d58cf 100644 --- a/man/RunModel.Rd +++ b/man/RunModel.Rd @@ -50,8 +50,6 @@ plot_OutputsModel(OutputsModel = OutputsModel, Qobs = BasinObs$Qmm[Ind_Run]) InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, RunOptions = RunOptions, Qobs = BasinObs$Qmm[Ind_Run]) OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel) -cat(paste(" Crit ", OutputsCrit$CritName, " ", round(OutputsCrit$CritValue, 4), "\\n", sep = "")) - } \author{ Laurent Coron (June 2014) diff --git a/man/RunModel_CemaNeigeGR4J.Rd b/man/RunModel_CemaNeigeGR4J.Rd index d3af641eba8bc2d6ac9375e12be945c43768332c..04a13d2b2937c43d71d71fff5c878a891f0c33a1 100644 --- a/man/RunModel_CemaNeigeGR4J.Rd +++ b/man/RunModel_CemaNeigeGR4J.Rd @@ -90,8 +90,6 @@ plot_OutputsModel(OutputsModel = OutputsModel, Qobs = BasinObs$Qmm[Ind_Run]) InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, RunOptions = RunOptions, Qobs = BasinObs$Qmm[Ind_Run]) OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel) -cat(paste(" Crit ", OutputsCrit$CritName, " ", round(OutputsCrit$CritValue, 4), "\\n", sep = "")) - } \author{ Laurent Coron, Audrey Valéry, Claude Michel, Charles Perrin, Vazken Andréassian (December 2013) diff --git a/man/RunModel_CemaNeigeGR5J.Rd b/man/RunModel_CemaNeigeGR5J.Rd index 2031d8fc0a7061e8625a0e4ff866ead2444c7d4a..21b857d326f38313b2f6ab2b9a945efd362b916a 100644 --- a/man/RunModel_CemaNeigeGR5J.Rd +++ b/man/RunModel_CemaNeigeGR5J.Rd @@ -91,8 +91,6 @@ plot_OutputsModel(OutputsModel = OutputsModel, Qobs = BasinObs$Qmm[Ind_Run]) InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, RunOptions = RunOptions, Qobs = BasinObs$Qmm[Ind_Run]) OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel) -cat(paste(" Crit ", OutputsCrit$CritName, " ", round(OutputsCrit$CritValue, 4), "\\n", sep = "")) - } \author{ Laurent Coron, Audrey Valéry, Claude Michel, Nicolas Le Moine, Charles Perrin, Vazken Andréassian (December 2013) diff --git a/man/RunModel_CemaNeigeGR6J.Rd b/man/RunModel_CemaNeigeGR6J.Rd index ab6aa409e0dcf1f32e60e77abf1ca842809b0e64..143968d0a178c94276a3219ae9908cf8912db548 100644 --- a/man/RunModel_CemaNeigeGR6J.Rd +++ b/man/RunModel_CemaNeigeGR6J.Rd @@ -94,8 +94,6 @@ plot_OutputsModel(OutputsModel = OutputsModel, Qobs = BasinObs$Qmm[Ind_Run]) InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, RunOptions = RunOptions, Qobs = BasinObs$Qmm[Ind_Run]) OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel) -cat(paste(" Crit ", OutputsCrit$CritName, " ", round(OutputsCrit$CritValue, 4), "\\n", sep = "")) - } \author{ Laurent Coron, Audrey Valéry, Claude Michel, Charles Perrin, Raji Pushpalatha, Nicolas Le Moine, Vazken Andréassian (December 2013) diff --git a/man/RunModel_GR1A.Rd b/man/RunModel_GR1A.Rd index 1be73d0e648cc51dfe1fdd5b05d9a1460136ae49..4ef302c8e8f85e0934f2df93e21ab7b0a64be10d 100644 --- a/man/RunModel_GR1A.Rd +++ b/man/RunModel_GR1A.Rd @@ -74,8 +74,6 @@ plot_OutputsModel(OutputsModel = OutputsModel, Qobs = BasinObs$Qmm[Ind_Run]) InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, RunOptions = RunOptions, Qobs = BasinObs$Qmm[Ind_Run]) OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel) -cat(paste(" Crit ", OutputsCrit$CritName, " ", round(OutputsCrit$CritValue, 4), "\\n", sep = "")) - } \author{ Laurent Coron, Claude Michel (March 2015) diff --git a/man/RunModel_GR2M.Rd b/man/RunModel_GR2M.Rd index 05723782306ec82f0a22e4cbdb09dcea9b811fc4..29bc3a96cdf269a5cd8945c37da0b35f66d847ea 100644 --- a/man/RunModel_GR2M.Rd +++ b/man/RunModel_GR2M.Rd @@ -73,8 +73,6 @@ plot_OutputsModel(OutputsModel = OutputsModel, Qobs = BasinObs$Qmm[Ind_Run]) InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, RunOptions = RunOptions, Qobs = BasinObs$Qmm[Ind_Run]) OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel) -cat(paste(" Crit ", OutputsCrit$CritName, " ", round(OutputsCrit$CritValue, 4), "\\n", sep = "")) - } \author{ Laurent Coron, Claude Michel, Safouane Mouelhi (March 2015) diff --git a/man/RunModel_GR4H.Rd b/man/RunModel_GR4H.Rd index 9e8e47755d26c014fd09fbfce4744b514f646e8a..433be0fe18b1c336538dec657f9e99c307cab5a3 100644 --- a/man/RunModel_GR4H.Rd +++ b/man/RunModel_GR4H.Rd @@ -75,8 +75,6 @@ plot_OutputsModel(OutputsModel=OutputsModel,Qobs=BasinObs$Qmm[Ind_Run]) InputsCrit <- CreateInputsCrit(FUN_CRIT=ErrorCrit_NSE,InputsModel=InputsModel, RunOptions=RunOptions,Qobs=BasinObs$Qmm[Ind_Run]) OutputsCrit <- ErrorCrit_NSE(InputsCrit=InputsCrit,OutputsModel=OutputsModel) -cat(paste(" Crit ",OutputsCrit$CritName," ",round(OutputsCrit$CritValue,4),"\\n",sep="")) - } \author{ Laurent Coron (July 2014) diff --git a/man/RunModel_GR4J.Rd b/man/RunModel_GR4J.Rd index 7f584ed8d870cebd8f1deaa95f025d30f61dc461..eb0eddbdb0f2a9fba14abee41bee53d47026bb81 100644 --- a/man/RunModel_GR4J.Rd +++ b/man/RunModel_GR4J.Rd @@ -76,8 +76,6 @@ plot_OutputsModel(OutputsModel = OutputsModel, Qobs = BasinObs$Qmm[Ind_Run]) InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, RunOptions = RunOptions, Qobs = BasinObs$Qmm[Ind_Run]) OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel) -cat(paste(" Crit ", OutputsCrit$CritName, " ", round(OutputsCrit$CritValue, 4), "\\n", sep = "")) - } \author{ Laurent Coron, Claude Michel, Charles Perrin (December 2013) diff --git a/man/RunModel_GR5J.Rd b/man/RunModel_GR5J.Rd index bd058061067cecbfdbb6d639539c88dc69ff43e8..4352713591e4d18156acfe39237a6485a70fd9e0 100644 --- a/man/RunModel_GR5J.Rd +++ b/man/RunModel_GR5J.Rd @@ -78,8 +78,6 @@ plot_OutputsModel(OutputsModel = OutputsModel, Qobs = BasinObs$Qmm[Ind_Run]) InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, RunOptions = RunOptions, Qobs = BasinObs$Qmm[Ind_Run]) OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel) -cat(paste(" Crit ", OutputsCrit$CritName, " ", round(OutputsCrit$CritValue, 4), "\\n", sep = "")) - } \author{ Laurent Coron, Claude Michel, Nicolas Le Moine (December 2013) diff --git a/man/RunModel_GR6J.Rd b/man/RunModel_GR6J.Rd index e540934498c8cb762d81b25f45d6b439c09e4dc1..5cc6c96015b7bd84799d38208d0707c93914957f 100644 --- a/man/RunModel_GR6J.Rd +++ b/man/RunModel_GR6J.Rd @@ -80,8 +80,6 @@ plot_OutputsModel(OutputsModel = OutputsModel, Qobs = BasinObs$Qmm[Ind_Run]) InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel, RunOptions = RunOptions, Qobs = BasinObs$Qmm[Ind_Run]) OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel) -cat(paste(" Crit ", OutputsCrit$CritName, " ", round(OutputsCrit$CritValue, 4), "\\n", sep = "")) - } \author{ Laurent Coron, Claude Michel, Charles Perrin, Raji Pushpalatha, Nicolas Le Moine (December 2013)