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
d7ae1da7
Commit
d7ae1da7
authored
Apr 05, 2017
by
unknown
Browse files
v1.0.6.4 DataAltiExtrapolation_Valery code improved #4521
parent
f282b5ae
Changes
3
Hide whitespace changes
Inline
Side-by-side
DESCRIPTION
View file @
d7ae1da7
Package: airGR
Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
Version: 1.0.6.
3
Version: 1.0.6.
4
Date: 2017-04-05
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl")),
...
...
R/DataAltiExtrapolation_Valery.R
View file @
d7ae1da7
...
...
@@ -453,8 +453,7 @@ DataAltiExtrapolation_Valery <- function(DatesR,
LayerPrecip_df
<-
LayerPrecip_df
/
rowMeans
(
LayerPrecip_df
)
*
Precip
LayerPrecip_df
[
is.nan
(
LayerPrecip_df
)]
<-
0
}
LayerPrecip
<-
lapply
(
seq_len
(
ncol
(
LayerPrecip_df
)),
function
(
x
)
LayerPrecip_df
[,
x
])
LayerPrecip
<-
as.list
(
LayerPrecip_df
)
}
...
...
R/ErrorCrit_KGE2.R
View file @
d7ae1da7
...
...
@@ -65,7 +65,7 @@ ErrorCrit_KGE2 <- function(InputsCrit,OutputsModel, warnings = TRUE, verbose = T
if
(
is.numeric
(
Crit
)
&
is.finite
(
Crit
)){
SubCritValues
[
iCrit
]
<-
Crit
;
}
##SubErrorCrit_____KGE_gama______________________
##SubErrorCrit_____KGE_gam
m
a______________________
iCrit
<-
iCrit
+1
;
SubCritNames
[
iCrit
]
<-
paste
(
CritName
,
" cv(sim)/cv(obs) ="
,
sep
=
""
)
SubCritValues
[
iCrit
]
<-
NA
;
...
...
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