Commit 41063996 authored by unknown's avatar unknown
Browse files

v0.1.2.37 new ylab for plot.CalGR(which = iter)

parent 35457828
Package: airGRteaching
Type: Package
Title: Tools to Simplify the Use of the airGR Hydrological Package for Education (Including a Shiny Application)
Version: 0.1.2.36
Version: 0.1.2.37
Date: 2017-04-10
Authors@R: c(person("Olivier", "Delaigue", role = c("aut", "cre"), email = "airGR@irstea.fr"), person("Laurent", "Coron", role = c("aut")), person("Pierre", "Brigode", role = c("aut")), person("Guillaume", "Thirel", role = c("ctb")))
Depends: airGR (>= 1.0.5.22)
......
......@@ -42,12 +42,12 @@ plot.CalGR <- function(x, xlab = NULL, ylab = NULL, main = NULL, which = c("per
ParamLab <- data.frame(Name = c(sprintf("X%i", 1:6), sprintf("C%i", 1:2)),
Label = c("prod. store capacity [mm]",
"intercatchment exchange coef. [mm/TimeUnit]",
"intercatchment exch. coef. [mm/TimeUnit]",
"routing store capacity [mm]",
"unit hydrograph time constant [TimeUnit]",
"intercatchment exchange threshold [-]",
"coefficient for emptying exp. store [mm]",
"weighting coef. for snow pack thermal state [-]",
"UH time constant [TimeUnit]",
"intercatchment exch. threshold [-]",
"coef. for emptying exp. store [mm]",
"weight for snowpack thermal state [-]",
"degree-day melt coef. [mm/degC/TimeUnit]"))
ParamLab$Label <- gsub("TimeUnit", substr(.TypeModelGR(x)$TimeUnit, 1, 1), ParamLab$Label)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment