Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
HYCAR-Hydro
airGR
Commits
b2501442
Commit
b2501442
authored
Dec 07, 2016
by
unknown
Browse files
#4434 using cat to print the criteria value is now not necessary
parent
9c6d0581
Changes
22
Hide whitespace changes
Inline
Side-by-side
inst/doc/airGR.Rmd
View file @
b2501442
...
...
@@ -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)
```
inst/doc/airGR.html
View file @
b2501442
...
...
@@ -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>
...
...
man/Calibration.Rd
View file @
b2501442
...
...
@@ -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)
...
...
man/Calibration_Michel.Rd
View file @
b2501442
...
...
@@ -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)
...
...
man/CreateInputsCrit.Rd
View file @
b2501442
...
...
@@ -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)
...
...
man/CreateInputsModel.Rd
View file @
b2501442
...
...
@@ -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{
...
...
man/CreateRunOptions.Rd
View file @
b2501442
...
...
@@ -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)
...
...
man/ErrorCrit.Rd
View file @
b2501442
...
...
@@ -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)
...
...
man/ErrorCrit_KGE.Rd
View file @
b2501442
...
...
@@ -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:
...
...
man/ErrorCrit_KGE2.Rd
View file @
b2501442
...
...
@@ -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:
...
...
man/ErrorCrit_NSE.Rd
View file @
b2501442
...
...
@@ -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:
...
...
man/ErrorCrit_RMSE.Rd
View file @
b2501442
...
...
@@ -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:
...
...
man/RunModel.Rd
View file @
b2501442
...
...
@@ -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)
...
...
man/RunModel_CemaNeigeGR4J.Rd
View file @
b2501442
...
...
@@ -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)
...
...
man/RunModel_CemaNeigeGR5J.Rd
View file @
b2501442
...
...
@@ -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)
...
...
man/RunModel_CemaNeigeGR6J.Rd
View file @
b2501442
...
...
@@ -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)
...
...
man/RunModel_GR1A.Rd
View file @
b2501442
...
...
@@ -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)
...
...
man/RunModel_GR2M.Rd
View file @
b2501442
...
...
@@ -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)
...
...
man/RunModel_GR4H.Rd
View file @
b2501442
...
...
@@ -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)
...
...
man/RunModel_GR4J.Rd
View file @
b2501442
...
...
@@ -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)
...
...
Prev
1
2
Next
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment