From 93e07a11763b6192cfa6ae2ef6fdc72b57599a8e Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.priv>
Date: Mon, 20 May 2019 11:49:53 +0200
Subject: [PATCH] v1.3.0.8 DOC: RunModel_CemaNeigeGR4H example modified
---
DESCRIPTION | 2 +-
NEWS.rmd | 2 +-
man/RunModel_CemaNeigeGR4H.Rd | 10 ++++++----
3 files changed, 8 insertions(+), 6 deletions(-)
diff --git a/DESCRIPTION b/DESCRIPTION
index 82cf4730..89d570e4 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
Package: airGR
Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.3.0.7
+Version: 1.3.0.8
Date: 2019-05-20
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
diff --git a/NEWS.rmd b/NEWS.rmd
index 81ac9d51..910b4a19 100644
--- a/NEWS.rmd
+++ b/NEWS.rmd
@@ -14,7 +14,7 @@ output:
-### 1.3.0.7 Release Notes (2019-05-20)
+### 1.3.0.8 Release Notes (2019-05-20)
#### New features
diff --git a/man/RunModel_CemaNeigeGR4H.Rd b/man/RunModel_CemaNeigeGR4H.Rd
index decf1547..f7fe04ed 100644
--- a/man/RunModel_CemaNeigeGR4H.Rd
+++ b/man/RunModel_CemaNeigeGR4H.Rd
@@ -89,6 +89,9 @@ library(airGR)
## loading catchment data
data(L0123002)
+BasinObs$DatesR <- seq(from = as.POSIXct("1984-01-01", tz = "UTC"),
+ to = as.POSIXct("1984-01-01", tz = "UTC") + length(BasinObs$DatesR),
+ by = "hour")
## preparation of the InputsModel object
InputsModel <- CreateInputsModel(FUN_MOD = RunModel_CemaNeigeGR4H, DatesR = BasinObs$DatesR,
@@ -97,8 +100,7 @@ InputsModel <- CreateInputsModel(FUN_MOD = RunModel_CemaNeigeGR4H, DatesR = Basi
HypsoData = BasinInfo$HypsoData, NLayers = 5)
## run period selection
-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"))
+Ind_Run <- 2193:5844
## ---- original version of CemaNeige
@@ -114,7 +116,7 @@ OutputsModel <- RunModel_CemaNeigeGR4H(InputsModel = InputsModel,
RunOptions = RunOptions, Param = Param)
## results preview
-plot(OutputsModel, Qobs = BasinObs$Qmm[Ind_Run])
+#plot(OutputsModel, Qobs = BasinObs$Qmm[Ind_Run])
## efficiency criterion: Nash-Sutcliffe Efficiency
InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel,
@@ -135,7 +137,7 @@ OutputsModel <- RunModel_CemaNeigeGR4H(InputsModel = InputsModel,
RunOptions = RunOptions, Param = Param)
## results preview
-plot(OutputsModel, Qobs = BasinObs$Qmm[Ind_Run])
+#plot(OutputsModel, Qobs = BasinObs$Qmm[Ind_Run])
## efficiency criterion: Nash-Sutcliffe Efficiency
InputsCrit <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModel,
--
GitLab