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
615b48ac
Commit
615b48ac
authored
Apr 01, 2019
by
Delaigue Olivier
Browse files
1.2.12.17 CLEAN: reformat date periods and vector of Param in CreateInputsModel doc example
parent
c5c9cc5b
Changes
3
Hide whitespace changes
Inline
Side-by-side
DESCRIPTION
View file @
615b48ac
Package: airGR
Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
Version: 1.2.12.1
6
Version: 1.2.12.1
7
Date: 2019-04-01
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
...
...
NEWS.rmd
View file @
615b48ac
...
...
@@ -13,7 +13,7 @@ output:
### 1.2.12.1
6
Release Notes (2019-04-01)
### 1.2.12.1
7
Release Notes (2019-04-01)
...
...
man/CreateInputsModel.Rd
View file @
615b48ac
...
...
@@ -78,15 +78,15 @@ InputsModel <- CreateInputsModel(FUN_MOD = RunModel_GR4J, DatesR = BasinObs$Date
Precip = BasinObs$P, PotEvap = BasinObs$E)
## run period selection
Ind_Run <- seq(which(format(BasinObs$DatesR, format = "\%
d/
\%m
/
\%
Y
")=="
01/01/1990
"),
which(format(BasinObs$DatesR, format = "\%
d/
\%m
/
\%
Y
")=="
31/12/1999
"))
Ind_Run <- seq(which(format(BasinObs$DatesR, format = "\%
Y-
\%m
-
\%
d
")=="
1990-01-01
"),
which(format(BasinObs$DatesR, format = "\%
Y-
\%m
-
\%
d
")=="
1999-12-31
"))
## preparation of the RunOptions object
RunOptions <- CreateRunOptions(FUN_MOD = RunModel_GR4J,
InputsModel = InputsModel, IndPeriod_Run = Ind_Run)
## simulation
Param <- c(734.568, -0.840, 109.809, 1.971)
Param <- c(
X1 =
734.568,
X2 =
-0.840,
X3 =
109.809,
X4 =
1.971)
OutputsModel <- RunModel(InputsModel = InputsModel, RunOptions = RunOptions, Param = Param,
FUN_MOD = RunModel_GR4J)
...
...
@@ -97,7 +97,6 @@ plot(OutputsModel, Qobs = BasinObs$Qmm[Ind_Run])
InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel,
RunOptions = RunOptions, obs = BasinObs$Qmm[Ind_Run], varObs = "Q")
OutputsCrit <- ErrorCrit_NSE(InputsCrit = InputsCrit, OutputsModel = OutputsModel)
}
...
...
@@ -107,6 +106,6 @@ Laurent Coron
\seealso{
\code{\link{RunModel}}, \code{\link{CreateRunOptions}}, \code{\link{CreateInputsCrit}}, \code{\link{CreateCalibOptions}}, \code{\link{DataAltiExtrapolation_Valery}}
\code{\link{RunModel}}, \code{\link{CreateRunOptions}}, \code{\link{CreateInputsCrit}},
\code{\link{CreateCalibOptions}}, \code{\link{DataAltiExtrapolation_Valery}}
}
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