Title: | Teaching Hydrological Modelling with the GR Rainfall-Runoff Models ('Shiny' Interface Included) |
---|---|
Description: | Add-on package to the 'airGR' package that simplifies its use and is aimed at being used for teaching hydrology. The package provides 1) three functions that allow to complete very simply a hydrological modelling exercise 2) plotting functions to help students to explore observed data and to interpret the results of calibration and simulation of the GR ('Génie rural') models 3) a 'Shiny' graphical interface that allows for displaying the impact of model parameters on hydrographs and models internal variables. |
Authors: | Olivier Delaigue [aut, cre] , Laurent Coron [aut] , Pierre Brigode [aut] , Guillaume Thirel [aut] |
Maintainer: | Olivier Delaigue <[email protected]> |
License: | GPL-2 |
Version: | 0.3.3 |
Built: | 2024-11-21 06:50:38 UTC |
Source: | CRAN |
airGRteaching is an add-on package to the airGR package that simplifies its use and is teaching oriented.
It allows to use with very low programming skills several lumped rainfall-runoff models (GR4H, GR5H, GR4J, GR5J, GR6J, GR2M and GR1A) and a snow melt and accumulation model (CemaNeige). This package also provides graphical devices to help students to explore data and modelling results.
The airGRteaching package has been designed to fulfil a major requirement: facilitating the use of the airGR functionalities by students. The names of the functions and their arguments were chosen to this end.
The package is mostly based on three families of functions:
the functions that allow to complete very simply a hydrological modelling exercise;
plotting functions to help students to explore observed data and to interpret the results of calibration and simulation of the GR models;
a function which runs a 'Shiny' graphical user interface that allows for displaying in real-time the impacts of model parameters on hydrographs.
This package brings into R the hydrological modelling tools developed at INRAE-Antony (Catchment Hydrology research group of the HYCAR Research Unit, France).
# — Modelling Functions
Three functions allow to complete very simply a hydrological modelling exercise:
preparation of data: PrepGR()
;
calibration of the models: CalGR()
;
simulation with the models: SimGR()
.
# — Plotting Functions
airGRteaching provides two types of plotting functions that allow to produce static (plot
()) or dynamic (dyplot()
) graphics (incl. mouse events and interactive graphics).
The devices allow to explore observed data and to interpret the results of calibration and simulation of the GR models.
# — Graphical user interface
The package also provides the ShinyGR()
function, which allows to launch a Shiny interface. Thus it is possible to perform:
interactive flow simulations with parameters modifications;
automatic calibration;
display of internal variables evolution;
time period selection.
A demonstrator of the graphical interface is available for free online on the Sunshine platform.
# — Models
The six hydrological models and the snow melt and accumulation model already available in airGR are accessible from airGRteaching.
These models can be called within airGRteaching using the following model names (*: available in the Shiny interface):
GR4H
: four-parameter hourly lumped hydrological model (Mathevet, 2005)
GR5H
: five-parameter hourly lumped hydrological model (Ficchi, 2017; Ficchi et al., 2019)
GR4J
*: four-parameter daily lumped hydrological model (Perrin et al., 2003)
GR5J
*: five-parameter daily lumped hydrological model (Le Moine, 2008)
GR6J
*: six-parameter daily lumped hydrological model (Pushpalatha et al., 2011)
GR2M
*: two-parameter monthly lumped hydrological model (Mouelhi, 2003; Mouelhi et al., 2006a)
GR1A
: one-parameter annual lumped hydrological model (Mouelhi, 2003; Mouelhi et al., 2006b)
CemaNeige
: two-parameter degree-day snow melt and accumulation daily model (combined with GR4H, GR5H, GR4J, GR5J or GR6J) (Valéry et al., 2014)
For more information and to get started with the package, you can refer to the vignette (vignette("get_started", package = "airGRteaching")
) and go on the airGRteaching website.
# — References
Coron, L., G. Thirel, O. Delaigue, C. Perrin and V. Andréassian (2017). The Suite of Lumped GR Hydrological Models in an R Package. Environmental Modelling and Software, 94, 166–171, doi:10.1016/j.envsoft.2017.05.002.
Ficchi, A. (2017). An adaptive hydrological model for multiple time-steps: Diagnostics and improvements based on fluxes consistency. PhD thesis, Irstea (Antony), GRNE (Paris), France.
Ficchi, A., C. Perrin and V. Andréassian (2019). Hydrological modelling at multiple sub-daily time steps: model improvement via flux-matching. Journal of Hydrology, 575, 1308-1327, doi:10.1016/j.jhydrol.2019.05.084.
Le Moine, N. (2008). Le bassin versant de surface vu par le souterrain : une voie d'amélioration des performances et du réalisme des modèles pluie-débit ?, PhD thesis (in French), UPMC - Cemagref Antony, Paris, France, 324 pp.
Mathevet, T. (2005). Quels modèles pluie-débit globaux pour le pas de temps horaire ? Développement empirique et comparaison de modèles sur un large échantillon de bassins versants, PhD thesis (in French), ENGREF - Cemagref Antony, Paris, France, 463 pp.
Mouelhi S. (2003). Vers une chaîne cohérente de modèles pluie-débit conceptuels globaux aux pas de temps pluriannuel, annuel, mensuel et journalier, PhD thesis (in French), ENGREF - Cemagref Antony, Paris, France, 323 pp.
Mouelhi, S., C. Michel, C. Perrin and V. Andréassian (2006a). Stepwise development of a two-parameter monthly water balance model, Journal of Hydrology, 318(1-4), 200-214, doi:10.1016/j.jhydrol.2005.06.014.
Mouelhi, S., C. Michel, C. Perrin. and V. Andreassian (2006b). Linking stream flow to rainfall at the annual time step: the Manabe bucket model revisited, Journal of Hydrology, 328, 283-296, doi:10.1016/j.jhydrol.2005.12.022.
Perrin, C., C. Michel and V. Andréassian (2003). Improvement of a parsimonious model for streamflow simulation, Journal of Hydrology, 279(1-4), 275-289, doi:10.1016/S0022-1694(03)00225-7.
Pushpalatha, R., C. Perrin, N. Le Moine, T. Mathevet and V. Andréassian (2011). A downward structural sensitivity analysis of hydrological models to improve low-flow simulation, Journal of Hydrology, 411(1-2), 66-76, doi:10.1016/j.jhydrol.2011.09.034.
Valéry, A., V. Andréassian and C. Perrin (2014). "As simple as possible but not simpler": What is useful in a temperature-based snow-accounting routine? Part 2 - Sensitivity analysis of the Cemaneige snow accounting routine on 380 catchments, Journal of Hydrology, 517(0): 1176-1187, doi:10.1016/j.jhydrol.2014.04.058.
Function to coerce the outputs of PrepGR, CalGR and SimGR to a data.frame
## S3 method for class 'PrepGR' as.data.frame(x, row.names = NULL, ...) ## S3 method for class 'CalGR' as.data.frame(x, row.names = NULL, ...) ## S3 method for class 'SimGR' as.data.frame(x, row.names = NULL, ...)
## S3 method for class 'PrepGR' as.data.frame(x, row.names = NULL, ...) ## S3 method for class 'CalGR' as.data.frame(x, row.names = NULL, ...) ## S3 method for class 'SimGR' as.data.frame(x, row.names = NULL, ...)
x |
|
row.names |
|
... |
additional arguments to be passed to or from methods |
[data.frame] containing:
Dates |
[POSIXct] vector of dates |
PotEvap |
[numeric] time series of potential evapotranspiration (catchment average) [mm/time step] |
PrecipObs |
[numeric] time series of total precipitation (catchment average) [mm/time step] |
PrecipFracSolid_CemaNeige |
[numeric] time series of solid precipitation fraction (layer average) [-], must be defined if CemaNeige is used |
TempMeanSim_CemaNeige |
[numeric] time series of mean air temperature (layer average) [°C], must be defined if CemaNeige is used |
Qobs |
[numeric] time series of observed flow (for the same time steps than simulated) [mm/time step] |
Qsim |
[numeric] time series of simulated flow (for the same time steps than simulated) [mm/time step] (only for objects of class |
Olivier Delaigue
library(airGRteaching) ## data.frame of observed data data(L0123001, package = "airGR") BasinObs2 <- BasinObs[, c("DatesR", "P", "E", "Qmm", "T")] ## Preparation of observed data for modelling PREP <- PrepGR(ObsDF = BasinObs2, HydroModel = "GR4J", CemaNeige = FALSE) head(as.data.frame(PREP)) ## Calibration step CAL <- CalGR(PrepGR = PREP, CalCrit = "KGE2", WupPer = NULL, CalPer = c("1990-01-01", "1991-12-31")) head(as.data.frame(CAL)) ## Simulation step using the result of the automatic calibration method to set the model parameters SIM <- SimGR(PrepGR = PREP, CalGR = CAL, EffCrit = "KGE2", WupPer = NULL, SimPer = c("1992-01-01", "1992-12-31")) head(as.data.frame(SIM))
library(airGRteaching) ## data.frame of observed data data(L0123001, package = "airGR") BasinObs2 <- BasinObs[, c("DatesR", "P", "E", "Qmm", "T")] ## Preparation of observed data for modelling PREP <- PrepGR(ObsDF = BasinObs2, HydroModel = "GR4J", CemaNeige = FALSE) head(as.data.frame(PREP)) ## Calibration step CAL <- CalGR(PrepGR = PREP, CalCrit = "KGE2", WupPer = NULL, CalPer = c("1990-01-01", "1991-12-31")) head(as.data.frame(CAL)) ## Simulation step using the result of the automatic calibration method to set the model parameters SIM <- SimGR(PrepGR = PREP, CalGR = CAL, EffCrit = "KGE2", WupPer = NULL, SimPer = c("1992-01-01", "1992-12-31")) head(as.data.frame(SIM))
Calibration algorithm that optimises the error criterion selected as objective function using the INRAE-HYCAR procedure described by C. Michel
CalGR(PrepGR, CalCrit = c("NSE", "KGE", "KGE2", "RMSE"), WupPer = NULL, CalPer, transfo = c("", "sqrt", "log", "inv", "sort"), verbose = TRUE)
CalGR(PrepGR, CalCrit = c("NSE", "KGE", "KGE2", "RMSE"), WupPer = NULL, CalPer, transfo = c("", "sqrt", "log", "inv", "sort"), verbose = TRUE)
PrepGR |
[object of class |
CalCrit |
[character] name of the objective function (must be one of |
WupPer |
(optional) [character] vector of 2 values to define the beginning and end of the warm-up period [ |
CalPer |
[character] vector of 2 values to define the beginning and end of the calibration period [ |
transfo |
(optional) [character] name of the transformation transformation applied to discharge for calculating the objective function (must be one of |
verbose |
(optional) [boolean] logical value indicating if the function is run in verbose mode or not |
WupPer = NULL
indicates that, if available, a period of one year immediately present before the CalPer period is used. WupPer = 0L
allows to disable the warm up of the model.
[list] object of class CalGR
containing:
OptionsCalib |
[list] object of class |
Qobs |
[numeric] series of observed discharges [mm/time step] |
OutputsCalib |
[list] object of class |
OutputsModel |
[list] object of class |
TypeModel |
[character] name of the function of the hydrological model used |
CalCrit |
[character] name of the function that computes the error criterion during the calibration step |
PeriodModel |
[list] |
Olivier Delaigue, Guillaume Thirel
airGRteaching
plot
and dyplot
functions to display static and dynamic plots
airGR
CreateRunOptions
, CreateInputsCrit
, CreateCalibOptions
, ErrorCrit_RMSE
, ErrorCrit_NSE
, ErrorCrit_KGE
, ErrorCrit_KGE2
, Calibration_Michel
functions
library(airGRteaching) ## data.frame of observed data data(L0123001, package = "airGR") BasinObs2 <- BasinObs[, c("DatesR", "P", "E", "Qmm", "T")] ## Preparation of observed data for modelling PREP <- PrepGR(ObsDF = BasinObs2, HydroModel = "GR4J", CemaNeige = TRUE) ## Calibration step CAL <- CalGR(PrepGR = PREP, CalCrit = "KGE2", WupPer = NULL, CalPer = c("1990-01-01", "1993-12-31")) ## Structure of CalGR object str(CAL) ## Parameter and criterion evolution during ## the steepest descent step of the calibration algorithm plot(CAL, which = "iter") ## Plot diagnostics plot(CAL) ## Static plot of observed and simulated time series plot(CAL, which = "ts") plot(CAL, which = c("Precip", "Flows")) ## Dynamic plot of observed and simulated time series dyplot(CAL)
library(airGRteaching) ## data.frame of observed data data(L0123001, package = "airGR") BasinObs2 <- BasinObs[, c("DatesR", "P", "E", "Qmm", "T")] ## Preparation of observed data for modelling PREP <- PrepGR(ObsDF = BasinObs2, HydroModel = "GR4J", CemaNeige = TRUE) ## Calibration step CAL <- CalGR(PrepGR = PREP, CalCrit = "KGE2", WupPer = NULL, CalPer = c("1990-01-01", "1993-12-31")) ## Structure of CalGR object str(CAL) ## Parameter and criterion evolution during ## the steepest descent step of the calibration algorithm plot(CAL, which = "iter") ## Plot diagnostics plot(CAL) ## Static plot of observed and simulated time series plot(CAL, which = "ts") plot(CAL, which = c("Precip", "Flows")) ## Dynamic plot of observed and simulated time series dyplot(CAL)
Interactive plots for time series of PrepGR, CalGR and SimGR objects.
## S3 method for class 'PrepGR' dyplot(x, Qsup = NULL, Qsup.name = "Qsup", col.Precip = c("royalblue", "lightblue"), col.Q = c("black", "orangered", "grey"), col.na = "lightgrey", ylab = NULL, main = NULL, plot.na = TRUE, RangeSelector = TRUE, Roller = FALSE, LegendShow = c("follow", "auto", "always", "onmouseover", "never"), ...) ## S3 method for class 'CalGR' dyplot(x, Qsup = NULL, Qsup.name = "Qsup", col.Precip = c("royalblue", "lightblue"), col.Q = c("black", "orangered", "grey"), col.na = "lightgrey", ylab = NULL, main = NULL, plot.na = TRUE, RangeSelector = TRUE, Roller = FALSE, LegendShow = c("follow", "auto", "always", "onmouseover", "never"), ...) ## S3 method for class 'SimGR' dyplot(x, Qsup = NULL, Qsup.name = "Qsup", col.Precip = c("royalblue", "lightblue"), col.Q = c("black", "orangered", "grey"), col.na = "lightgrey", ylab = NULL, main = NULL, plot.na = TRUE, RangeSelector = TRUE, Roller = FALSE, LegendShow = c("follow", "auto", "always", "onmouseover", "never"), ...)
## S3 method for class 'PrepGR' dyplot(x, Qsup = NULL, Qsup.name = "Qsup", col.Precip = c("royalblue", "lightblue"), col.Q = c("black", "orangered", "grey"), col.na = "lightgrey", ylab = NULL, main = NULL, plot.na = TRUE, RangeSelector = TRUE, Roller = FALSE, LegendShow = c("follow", "auto", "always", "onmouseover", "never"), ...) ## S3 method for class 'CalGR' dyplot(x, Qsup = NULL, Qsup.name = "Qsup", col.Precip = c("royalblue", "lightblue"), col.Q = c("black", "orangered", "grey"), col.na = "lightgrey", ylab = NULL, main = NULL, plot.na = TRUE, RangeSelector = TRUE, Roller = FALSE, LegendShow = c("follow", "auto", "always", "onmouseover", "never"), ...) ## S3 method for class 'SimGR' dyplot(x, Qsup = NULL, Qsup.name = "Qsup", col.Precip = c("royalblue", "lightblue"), col.Q = c("black", "orangered", "grey"), col.na = "lightgrey", ylab = NULL, main = NULL, plot.na = TRUE, RangeSelector = TRUE, Roller = FALSE, LegendShow = c("follow", "auto", "always", "onmouseover", "never"), ...)
x |
|
Qsup |
(optional) [numeric] additional time series of flows (at the same time step than argument |
Qsup.name |
(optional) [character] a label for the legend of Qsup |
col.Precip |
(optional) [character] vector of 1 (total precip.) or 2 (liquid and solid precip. with CemaNeige) color codes or names for precipitation (these can be of the form |
col.Q |
(optional) [character] vector of up to 3 color codes or names for observed (first value), simulated (second value, if provided) and additional (last value, if provided) flows, respectively (these can be of the form |
col.na |
(optional) [character] color code or name for missing values(these can be of the form |
ylab |
(optional) [character] a label for the y-axis (flow and precipitation) |
main |
(optional) [character] a main title for the plot |
plot.na |
[boolean] indicating if the missing values are plotted on the x-axis |
RangeSelector |
(optional) [boolean] add a range selector to the bottom of the chart that allows users to pan and zoom to various date ranges (see |
Roller |
(optional) [numeric] number of time scale units (e.g. days, months, years) to average values over (see |
LegendShow |
(optional) [character] when to display the legend. Specify |
... |
other parameters to be passed through to plotting functions |
Olivier Delaigue
airGRteaching static plot
functions
PrepGR
, CalGR
, SimGR
library(airGRteaching) ## data.frame of observed data data(L0123001, package = "airGR") BasinObs2 <- BasinObs[, c("DatesR", "P", "E", "Qmm", "T")] ## Preparation of observed data for modelling PREP <- PrepGR(ObsDF = BasinObs2, HydroModel = "GR4J", CemaNeige = FALSE) dyplot(PREP, main = "Observation") ## Calibration step CAL <- CalGR(PrepGR = PREP, CalCrit = "KGE2", WupPer = NULL, CalPer = c("1990-01-01", "1993-12-31")) dyplot(CAL, main = "Calibration") ## Simulation SIM <- SimGR(PrepGR = PREP, CalGR = CAL, EffCrit = "KGE2", WupPer = NULL, SimPer = c("1994-01-01", "1998-12-31")) dyplot(SIM, main = "Simulation")
library(airGRteaching) ## data.frame of observed data data(L0123001, package = "airGR") BasinObs2 <- BasinObs[, c("DatesR", "P", "E", "Qmm", "T")] ## Preparation of observed data for modelling PREP <- PrepGR(ObsDF = BasinObs2, HydroModel = "GR4J", CemaNeige = FALSE) dyplot(PREP, main = "Observation") ## Calibration step CAL <- CalGR(PrepGR = PREP, CalCrit = "KGE2", WupPer = NULL, CalPer = c("1990-01-01", "1993-12-31")) dyplot(CAL, main = "Calibration") ## Simulation SIM <- SimGR(PrepGR = PREP, CalGR = CAL, EffCrit = "KGE2", WupPer = NULL, SimPer = c("1994-01-01", "1998-12-31")) dyplot(SIM, main = "Simulation")
Get the error criterion value or the model parameter set from CalGR and SimGR objects.
## S3 method for class 'CalGR' GetCrit(x, ...) ## S3 method for class 'SimGR' GetCrit(x, ...) ## S3 method for class 'CalGR' GetParam(x, ...) ## S3 method for class 'SimGR' GetParam(x, ...)
## S3 method for class 'CalGR' GetCrit(x, ...) ## S3 method for class 'SimGR' GetCrit(x, ...) ## S3 method for class 'CalGR' GetParam(x, ...) ## S3 method for class 'SimGR' GetParam(x, ...)
x |
|
... |
additional arguments to be passed to or from methods |
Olivier Delaigue
library(airGRteaching) ## data.frame of observed data data(L0123001, package = "airGR") BasinObs2 <- BasinObs[, c("DatesR", "P", "E", "Qmm", "T")] ## Preparation of observed data for modelling PREP <- PrepGR(ObsDF = BasinObs2, HydroModel = "GR4J", CemaNeige = TRUE) ## Calibration step CAL <- CalGR(PrepGR = PREP, CalCrit = "KGE2", WupPer = NULL, CalPer = c("1990-01-01", "1993-12-31")) ## Get the error criterion selected as objective function obtained at the end of the calibration GetCrit(CAL) ## Get the parameter set obtained at the end of the calibration GetParam(CAL) ## Simulation step using the result of the automatic calibration method to set the model parameters SIM <- SimGR(PrepGR = PREP, Param = CAL, EffCrit = "KGE2", WupPer = NULL, SimPer = c("1994-01-01", "1998-12-31")) ## Get the error criterion computed during the simulation step GetCrit(SIM) ## Get the parameter set used during the simulation step GetParam(SIM)
library(airGRteaching) ## data.frame of observed data data(L0123001, package = "airGR") BasinObs2 <- BasinObs[, c("DatesR", "P", "E", "Qmm", "T")] ## Preparation of observed data for modelling PREP <- PrepGR(ObsDF = BasinObs2, HydroModel = "GR4J", CemaNeige = TRUE) ## Calibration step CAL <- CalGR(PrepGR = PREP, CalCrit = "KGE2", WupPer = NULL, CalPer = c("1990-01-01", "1993-12-31")) ## Get the error criterion selected as objective function obtained at the end of the calibration GetCrit(CAL) ## Get the parameter set obtained at the end of the calibration GetParam(CAL) ## Simulation step using the result of the automatic calibration method to set the model parameters SIM <- SimGR(PrepGR = PREP, Param = CAL, EffCrit = "KGE2", WupPer = NULL, SimPer = c("1994-01-01", "1998-12-31")) ## Get the error criterion computed during the simulation step GetCrit(SIM) ## Get the parameter set used during the simulation step GetParam(SIM)
Static plots for time series of PrepGR, CalGR and SimGR objects. Also plot of the evolution of parameters and objective function during the calibration step for CalGR object.
## S3 method for class 'PrepGR' plot(x, type = "l", col.Precip = "royalblue", col.Q = "black", col.na = "grey", xlab = NULL, ylab = NULL, main = NULL, plot.na = TRUE, ...) ## S3 method for class 'CalGR' plot(x, xlab = NULL, ylab = NULL, main = NULL, which = "synth", log_scale = FALSE, ...) ## S3 method for class 'SimGR' plot(x, which = "synth", log_scale = FALSE, ...)
## S3 method for class 'PrepGR' plot(x, type = "l", col.Precip = "royalblue", col.Q = "black", col.na = "grey", xlab = NULL, ylab = NULL, main = NULL, plot.na = TRUE, ...) ## S3 method for class 'CalGR' plot(x, xlab = NULL, ylab = NULL, main = NULL, which = "synth", log_scale = FALSE, ...) ## S3 method for class 'SimGR' plot(x, which = "synth", log_scale = FALSE, ...)
x |
[PrepGR], [CalGR] or [SimGR] objects (see |
type |
[character] the type of plot that should be drawn (see |
col.Precip |
(optional) [character]color code or name for precipitation, see |
col.Q |
(optional) [character] color code or name for observed flow, see |
col.na |
(optional) [character] color code or name for missing values, see |
xlab |
(optional) [character] a label for the x-axis (see |
ylab |
(optional) [character] a label for the y-axis (vector of 1 or 2 values for rainfall and flow respectively; see |
main |
(optional) [character] a main title for the plot (see |
plot.na |
[boolean] boolean indicating if the missing values are plotted on the x-axis |
which |
[character] choice of the plot type ( |
log_scale |
(optional) [boolean] indicating if the flow and the error time series axis and the flow error time series axis are to be logarithmic, default = |
... |
other parameters to be passed through to plotting functions |
Olivier Delaigue
airGR
plot.OutputsModel
function
airGRteaching
dyplot
function to display dynamic plots
PrepGR
, CalGR
, SimGR
library(airGRteaching) ## data.frame of observed data data(L0123001, package = "airGR") BasinObs2 <- BasinObs[, c("DatesR", "P", "E", "Qmm", "T")] ## Preparation of observed data for modelling PREP <- PrepGR(ObsDF = BasinObs2, HydroModel = "GR4J", CemaNeige = FALSE) ## Observed data plotting plot(PREP)
library(airGRteaching) ## data.frame of observed data data(L0123001, package = "airGR") BasinObs2 <- BasinObs[, c("DatesR", "P", "E", "Qmm", "T")] ## Preparation of observed data for modelling PREP <- PrepGR(ObsDF = BasinObs2, HydroModel = "GR4J", CemaNeige = FALSE) ## Observed data plotting plot(PREP)
Creation of the inputs required to run the CalGR and SimGR functions
PrepGR(ObsDF = NULL, DatesR = NULL, Precip = NULL, PotEvap = NULL, Qobs = NULL, TempMean = NULL, ZInputs = NULL, HypsoData = NULL, NLayers = 5, HydroModel, CemaNeige = FALSE)
PrepGR(ObsDF = NULL, DatesR = NULL, Precip = NULL, PotEvap = NULL, Qobs = NULL, TempMean = NULL, ZInputs = NULL, HypsoData = NULL, NLayers = 5, HydroModel, CemaNeige = FALSE)
ObsDF |
(optional) [data.frame] data.frame of dates, total precipitation, potential evapotranspiration, observed discharges and mean air temperature (only if CemaNeige is used) (variables must be in this order; see below for the units) |
DatesR |
(optional) [POSIXt] vector of dates required to create the GR and CemaNeige (if used) models inputs. Time zone must be defined as "UTC" |
Precip |
(optional) [numeric] time series of total precipitation (catchment average) [mm/time step], required to create the GR and CemaNeige (if used) models inputs |
PotEvap |
(optional) [numeric] time series of potential evapotranspiration (catchment average) [mm/time step], required to create the GR model inputs |
Qobs |
(optional) [numeric] time series of observed discharges [mm/time step] |
TempMean |
(optional) [numeric] time series of mean air temperature [°C], required to create the CemaNeige model inputs |
ZInputs |
(optional) [numeric] real giving the mean elevation of the Precip and TempMean series (before extrapolation) [m], possibly used to create the CemaNeige (if used) model inputs |
HypsoData |
(optional) [numeric] vector of 101 reals: min, q01 to q99 and max of catchment elevation distribution [m]; if not defined a single elevation is used for CemaNeige (if used) |
NLayers |
(optional) [numeric] integer giving the number of elevation layers requested [-], required to create CemaNeige (if used) model inputs |
HydroModel |
[character] name of the hydrological model (must be one of |
CemaNeige |
[boolean] option indicating whether CemaNeige should be activated (only available for hourly or daily models, when |
If the ObsDF
argument is provided, DatesR
, Precip
, PotEvap
, Qobs
and TempMean
are not necessary, and vice-versa. If one variable is provided in ObsDF
and also separately, then only the data included in ObsDF
are used.
If HydroModel = "GR5H"
, by default, this model is used without the interception store (i.e. without specifying Imax
; see RunModel_GR5H
).
If the CemaNeige
argument is set to TRUE
, the default version of CemaNeige is used (i.e. without the Linear Hysteresis, see the details part in CreateRunOptions
).
The PrepGR
function can be used even if no observed discharges are available. In this case, it is necessary to provide observed discharges time series equal to NA: this means that either the ObsDF
observed discharges column or the Qobs
arguments, depending on the format of data you provide, must be provided and filled with NAs.
[list] object of class PrepGR
containing the data required to evaluate the model outputs:
InputsModel |
[list] object of class InputsModel containing the data required to evaluate the model outputs (see: |
Qobs |
[numeric] time series of observed discharges [mm/time step] |
HydroModel |
[character] name of the function of the hydrological model used |
Olivier Delaigue
airGRteaching
plot
and dyplot
functions to display static and dynamic plots
airGR
CreateInputsModel
function
library(airGRteaching) ## data.frame of observed data data(L0123001, package = "airGR") BasinObs2 <- BasinObs[, c("DatesR", "P", "E", "Qmm", "T")] ## Preparation of observed data for modelling when inputs set by using a data.frame PREP <- PrepGR(ObsDF = BasinObs2, HydroModel = "GR4J", CemaNeige = FALSE) ## Structure of PrepGR object str(PREP) ## Static plot of observed time series plot(PREP) ## Dynamic plot of observed time series dyplot(PREP) ## Preparation of observed data for modelling when inputs set by using independant vectors PREP <- PrepGR(DatesR = BasinObs2$DatesR, Precip = BasinObs2$P, PotEvap = BasinObs2$E, Qobs = BasinObs2$Qmm, HydroModel = "GR4J", CemaNeige = FALSE) ## Preparation of observed data for an ungauged catchment (i.e. no observed discharge available) ## Observed discharge set to NA in the Qobs argument ## or in the 4th column of the data.frame if the ObsDF argument is used PREP <- PrepGR(DatesR = BasinObs2$DatesR, Precip = BasinObs2$P, PotEvap = BasinObs2$E, Qobs = NA, HydroModel = "GR4J", CemaNeige = FALSE)
library(airGRteaching) ## data.frame of observed data data(L0123001, package = "airGR") BasinObs2 <- BasinObs[, c("DatesR", "P", "E", "Qmm", "T")] ## Preparation of observed data for modelling when inputs set by using a data.frame PREP <- PrepGR(ObsDF = BasinObs2, HydroModel = "GR4J", CemaNeige = FALSE) ## Structure of PrepGR object str(PREP) ## Static plot of observed time series plot(PREP) ## Dynamic plot of observed time series dyplot(PREP) ## Preparation of observed data for modelling when inputs set by using independant vectors PREP <- PrepGR(DatesR = BasinObs2$DatesR, Precip = BasinObs2$P, PotEvap = BasinObs2$E, Qobs = BasinObs2$Qmm, HydroModel = "GR4J", CemaNeige = FALSE) ## Preparation of observed data for an ungauged catchment (i.e. no observed discharge available) ## Observed discharge set to NA in the Qobs argument ## or in the 4th column of the data.frame if the ObsDF argument is used PREP <- PrepGR(DatesR = BasinObs2$DatesR, Precip = BasinObs2$P, PotEvap = BasinObs2$E, Qobs = NA, HydroModel = "GR4J", CemaNeige = FALSE)
Shiny application to understand and to display in a interactive way the impact of each parameter of the GR models on the simulated flows
ShinyGR(ObsDF = NULL, DatesR = NULL, Precip = NULL, PotEvap = NULL, Qobs = NULL, TempMean = NULL, ZInputs = NULL, HypsoData = NULL, NLayers = 5, SimPer, NamesObsBV = NULL, theme = "RStudio")
ShinyGR(ObsDF = NULL, DatesR = NULL, Precip = NULL, PotEvap = NULL, Qobs = NULL, TempMean = NULL, ZInputs = NULL, HypsoData = NULL, NLayers = 5, SimPer, NamesObsBV = NULL, theme = "RStudio")
ObsDF |
(optional) [data.frame or list of data.frame] |
DatesR |
(optional) [POSIXt] vector of daily or monthly dates required to create the GR and CemaNeige models inputs. Time zone must be defined as "UTC" |
Precip |
(optional) [numeric] time series of total precipitation (catchment average) [mm/time step], required to create the GR and CemaNeige models inputs |
PotEvap |
(optional) [numeric] time series of potential evapotranspiration (catchment average) [mm/time step], required to create the GR model inputs |
Qobs |
(optional) [numeric] time series of observed discharge [mm/time step] |
TempMean |
(optional) [numeric] time series of mean air temperature [°C], required to create the CemaNeige model inputs (if used) |
ZInputs |
(optional) [numeric or list of numerics] real giving the mean elevation of the Precip and TempMean series (before extrapolation) [m], used to create the CemaNeige model inputs (if used) |
HypsoData |
(optional) [numeric or list of numerics] vector of 101 reals: min, q01 to q99 and max of catchment elevation distribution [m]; if not defined a single elevation is used for CemaNeige (if used) |
NLayers |
(optional) [numeric or list of numerics] integer giving the number of elevation layers requested [-], required to create CemaNeige model inputs (if used) |
SimPer |
[character or list of characters] vector of 2 values to define the beginning and the end of the simulation period [ |
NamesObsBV |
(optional) [character] vector of values to define the data inputs name(s) (if the ObsDF list is not already named) |
theme |
(optional) [character] alternative stylesheet [ |
The warm-up period always starts from the first date of the dataset to the time step just before the beginning of the simulation period (SimPer
).
The ShinyGR
function can be used even if no observed discharges are available. In this case, it is necessary to provide observed discharges time series equal to NA: this means that either the ObsDF
observed discharges column or the Qobs
arguments, depending on the format of data you provide, must be provided and filled with NAs.
Several datasets can be proposed at the same time in the interface (see the code example below). A dataset with a daily time step can be proposed at the same time as a dataset at the monthly time step.
CemaNeige can only be used with the daily models at the moment.
A demo version of the GUI is available on the Sunshine platform.
Olivier Delaigue, Laurent Coron, Pierre Brigode
library(airGRteaching) ## data.frame of daily observed data of a low-land basin data(L0123001, package = "airGR") BV_L0123001 <- BasinObs[0001:6000, c("DatesR", "P", "E", "Qmm", "T")] BI_L0123001 <- BasinInfo ## data.frame of daily observed data of a mountainous basin data(L0123002, package = "airGR") BV_L0123002 <- BasinObs[5000:9999, c("DatesR", "P", "E", "Qmm", "T")] BI_L0123002 <- BasinInfo ## data.frame of monthly aggregated time series from daily observed data of a low-land basin BV_L0123001m <- SeriesAggreg(BV_L0123001[BV_L0123001$DatesR < "2000-06-01", ], Format = "%Y%m", ConvertFun = c("sum", "sum", "sum", "mean")) ## Interactive simulation when inputs set by using a data.frame if (interactive()) { ShinyGR(ObsDF = list("Low-land basin" = BV_L0123001, "Mountainous basin" = BV_L0123002), ZInputs = list(NULL, median(BI_L0123002$HypsoData)), HypsoData = list(NULL, BI_L0123002$HypsoData), NLayers = list(5, 5), SimPer = list(c("1994-01-01", "1998-12-31"), c("2004-01-01", "2006-12-31")), theme = "United") } ## Interactive simulation using when inputs set by using independant vectors if (interactive()) { ShinyGR(DatesR = BV_L0123002$DatesR, Precip = BV_L0123002$P, PotEvap = BV_L0123002$E, Qobs = BV_L0123002$Qmm, Temp = BV_L0123002$T, ZInputs = median(BI_L0123002$HypsoData), HypsoData = BI_L0123002$HypsoData, NLayers = 5, SimPer = c("2004-01-01", "2006-12-31"), NamesObsBV = "Mountainous basin", theme = "Saclay") } ## Interactive simulation for an ungauged catchment (i.e. no observed discharge available) ## Observed discharge set to NA in the Qobs argument ## or in the 4th column of the data.frame if the ObsDF argument is used if (interactive()) { ShinyGR(DatesR = BV_L0123001$DatesR, Precip = BV_L0123001$P, PotEvap = BV_L0123001$E, Qobs = NA, SimPer = c("1994-01-01", "1998-12-31"), NamesObsBV = "Low-land basin", theme = "Cyborg") } ## Interactive simulation when inputs are at different time steps if (interactive()) { ShinyGR(ObsDF = list("Low-land basin [daily]" = BV_L0123001, "Low-land basin [monthly]" = BV_L0123001m), SimPer = list(c("1994-01-01", "1998-12-01"), c("1994-01-01", "1998-12-01")), theme = "Flatly") }
library(airGRteaching) ## data.frame of daily observed data of a low-land basin data(L0123001, package = "airGR") BV_L0123001 <- BasinObs[0001:6000, c("DatesR", "P", "E", "Qmm", "T")] BI_L0123001 <- BasinInfo ## data.frame of daily observed data of a mountainous basin data(L0123002, package = "airGR") BV_L0123002 <- BasinObs[5000:9999, c("DatesR", "P", "E", "Qmm", "T")] BI_L0123002 <- BasinInfo ## data.frame of monthly aggregated time series from daily observed data of a low-land basin BV_L0123001m <- SeriesAggreg(BV_L0123001[BV_L0123001$DatesR < "2000-06-01", ], Format = "%Y%m", ConvertFun = c("sum", "sum", "sum", "mean")) ## Interactive simulation when inputs set by using a data.frame if (interactive()) { ShinyGR(ObsDF = list("Low-land basin" = BV_L0123001, "Mountainous basin" = BV_L0123002), ZInputs = list(NULL, median(BI_L0123002$HypsoData)), HypsoData = list(NULL, BI_L0123002$HypsoData), NLayers = list(5, 5), SimPer = list(c("1994-01-01", "1998-12-31"), c("2004-01-01", "2006-12-31")), theme = "United") } ## Interactive simulation using when inputs set by using independant vectors if (interactive()) { ShinyGR(DatesR = BV_L0123002$DatesR, Precip = BV_L0123002$P, PotEvap = BV_L0123002$E, Qobs = BV_L0123002$Qmm, Temp = BV_L0123002$T, ZInputs = median(BI_L0123002$HypsoData), HypsoData = BI_L0123002$HypsoData, NLayers = 5, SimPer = c("2004-01-01", "2006-12-31"), NamesObsBV = "Mountainous basin", theme = "Saclay") } ## Interactive simulation for an ungauged catchment (i.e. no observed discharge available) ## Observed discharge set to NA in the Qobs argument ## or in the 4th column of the data.frame if the ObsDF argument is used if (interactive()) { ShinyGR(DatesR = BV_L0123001$DatesR, Precip = BV_L0123001$P, PotEvap = BV_L0123001$E, Qobs = NA, SimPer = c("1994-01-01", "1998-12-31"), NamesObsBV = "Low-land basin", theme = "Cyborg") } ## Interactive simulation when inputs are at different time steps if (interactive()) { ShinyGR(ObsDF = list("Low-land basin [daily]" = BV_L0123001, "Low-land basin [monthly]" = BV_L0123001m), SimPer = list(c("1994-01-01", "1998-12-01"), c("1994-01-01", "1998-12-01")), theme = "Flatly") }
Function for running the GR hydrological models
SimGR(PrepGR, CalGR = NULL, Param, EffCrit = c("NSE", "KGE", "KGE2", "RMSE"), WupPer = NULL, SimPer, transfo = c("", "sqrt", "log", "inv", "sort"), verbose = TRUE)
SimGR(PrepGR, CalGR = NULL, Param, EffCrit = c("NSE", "KGE", "KGE2", "RMSE"), WupPer = NULL, SimPer, transfo = c("", "sqrt", "log", "inv", "sort"), verbose = TRUE)
PrepGR |
[object of class PrepGR] see |
CalGR |
(deprecated) use the |
Param |
[object of class CalGR or numeric] see |
EffCrit |
[character] name of the efficiency criterion (must be one of |
WupPer |
(optional) [character] vector of 2 values to define the beginning and end of the warm-up period [ |
SimPer |
[character] vector of 2 values to define the beginning and end of the simulation period [ |
transfo |
(optional) [character] name of the transformation applied to discharge for calculating the error criterion (must be one of |
verbose |
(optional) [boolean] logical value indicating if the function is run in verbose mode or not |
The user can customize the parameters with the Param
argument.
The user can also use the parameters resulting from a calibration. In this case, it is necessary to use the CalGR
function.
WupPer = NULL
indicates that, if available, a period of one year immediately present before the CalPer period is used. WupPer = 0L
allows to disable the warm up of the model.
[list] object of class SimGR
containing:
OptionsSimul |
[list] object of class |
OptionsCrit |
[list] object of class |
OutputsModel |
[list] object of class |
Qobs |
[numeric] series of observed discharges [mm/time step] |
TypeModel |
[character] name of the function of the hydrological model used |
CalCrit |
[character] name of the function that computes the error criterion during the calibration step |
EffCrit |
[list] name of the function that computes the error criterion during the simulation step |
PeriodModel |
[list] |
Olivier Delaigue, Guillaume Thirel
airGRteaching
plot
and dyplot
functions to display static and dynamic plots
airGR
CreateRunOptions
, CreateInputsCrit
, RunModel
, ErrorCrit_RMSE
, ErrorCrit_NSE
, ErrorCrit_KGE
, ErrorCrit_KGE2
functions
library(airGRteaching) ## data.frame of observed data data(L0123001, package = "airGR") BasinObs2 <- BasinObs[, c("DatesR", "P", "E", "Qmm", "T")] ## Preparation of observed data for modelling PREP <- PrepGR(ObsDF = BasinObs2, HydroModel = "GR4J", CemaNeige = FALSE) ## Calibration step CAL <- CalGR(PrepGR = PREP, CalCrit = "KGE2", WupPer = NULL, CalPer = c("1990-01-01", "1993-12-31")) ## Simulation step using the result of the automatic calibration method to set the model parameters SIM <- SimGR(PrepGR = PREP, Param = CAL, EffCrit = "KGE2", WupPer = NULL, SimPer = c("1994-01-01", "1998-12-31")) ## Simulation step using model parameter set by the user SIM <- SimGR(PrepGR = PREP, Param = c(270.426, 0.984, 108.853, 2.149), EffCrit = "KGE2", WupPer = NULL, SimPer = c("1994-01-01", "1998-12-31")) ## Structure of SimGR object str(SIM) ## Plot diagnostics plot(SIM) ## Static plot of observed and simulated time series plot(SIM, which = "ts") plot(SIM, which = c("Precip", "Flows")) ## Dynamic plot of observed and simulated time series dyplot(SIM)
library(airGRteaching) ## data.frame of observed data data(L0123001, package = "airGR") BasinObs2 <- BasinObs[, c("DatesR", "P", "E", "Qmm", "T")] ## Preparation of observed data for modelling PREP <- PrepGR(ObsDF = BasinObs2, HydroModel = "GR4J", CemaNeige = FALSE) ## Calibration step CAL <- CalGR(PrepGR = PREP, CalCrit = "KGE2", WupPer = NULL, CalPer = c("1990-01-01", "1993-12-31")) ## Simulation step using the result of the automatic calibration method to set the model parameters SIM <- SimGR(PrepGR = PREP, Param = CAL, EffCrit = "KGE2", WupPer = NULL, SimPer = c("1994-01-01", "1998-12-31")) ## Simulation step using model parameter set by the user SIM <- SimGR(PrepGR = PREP, Param = c(270.426, 0.984, 108.853, 2.149), EffCrit = "KGE2", WupPer = NULL, SimPer = c("1994-01-01", "1998-12-31")) ## Structure of SimGR object str(SIM) ## Plot diagnostics plot(SIM) ## Static plot of observed and simulated time series plot(SIM, which = "ts") plot(SIM, which = c("Precip", "Flows")) ## Dynamic plot of observed and simulated time series dyplot(SIM)