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
e81459a4
Commit
e81459a4
authored
Feb 21, 2019
by
Delaigue Olivier
Browse files
v1.1.3.5 UPDATE: ErrorCrit_RMSE takes into account SCA, SWE and SD observations
parent
524bb89c
Changes
3
Hide whitespace changes
Inline
Side-by-side
DESCRIPTION
View file @
e81459a4
Package: airGR
Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
Version: 1.1.3.
4
Version: 1.1.3.
5
Date: 2019-02-21
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
...
...
NEWS.rmd
View file @
e81459a4
...
...
@@ -13,7 +13,7 @@ output:
### 1.1.3.
4
Release Notes (2019-02-21)
### 1.1.3.
5
Release Notes (2019-02-21)
...
...
R/ErrorCrit_RMSE.R
View file @
e81459a4
...
...
@@ -6,6 +6,10 @@ ErrorCrit_RMSE <- function(InputsCrit, OutputsModel, warnings = TRUE, verbose =
stop
(
"InputsCrit must be of class 'InputsCrit' \n"
)
return
(
NULL
)
}
if
(
inherits
(
InputsCrit
,
"Multi"
)
|
inherits
(
InputsCrit
,
"Compo"
))
{
stop
(
"InputsCrit must be of class 'Single'. Use the ErrorCrit function on objects of class 'Multi' with RMSE"
)
return
(
NULL
)
}
if
(
!
inherits
(
OutputsModel
,
"OutputsModel"
))
{
stop
(
"OutputsModel must be of class 'OutputsModel' \n"
)
return
(
NULL
)
...
...
@@ -14,24 +18,26 @@ ErrorCrit_RMSE <- function(InputsCrit, OutputsModel, warnings = TRUE, verbose =
##Initialisation_________________________________
CritName
<-
NA
CritVar
<-
InputsCrit
$
varObs
if
(
InputsCrit
$
transfo
==
""
)
{
CritName
<-
"RMSE[
Q
]"
CritName
<-
"RMSE[
CritVar
]"
}
if
(
InputsCrit
$
transfo
==
"sqrt"
)
{
CritName
<-
"RMSE[sqrt(
Q
)]"
CritName
<-
"RMSE[sqrt(
CritVar
)]"
}
if
(
InputsCrit
$
transfo
==
"log"
)
{
CritName
<-
"RMSE[log(
Q
)]"
CritName
<-
"RMSE[log(
CritVar
)]"
}
if
(
InputsCrit
$
transfo
==
"inv"
)
{
CritName
<-
"RMSE[1/
Q
]"
CritName
<-
"RMSE[1/
CritVar
]"
}
if
(
InputsCrit
$
transfo
==
"sort"
)
{
CritName
<-
"RMSE[sort(
Q
)]"
CritName
<-
"RMSE[sort(
CritVar
)]"
}
CritValue
<-
NA
CritBestValue
<-
+1
Multiplier
<-
+1
CritName
<-
gsub
(
pattern
=
"CritVar"
,
replacement
=
CritVar
,
x
=
CritName
)
CritValue
<-
NA
CritBestValue
<-
+1
Multiplier
<-
+1
### must be equal to -1 or +1 only
...
...
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