v1.0.9.23 new example of CreateIniStates

DESCRIPTION

 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.0.9.22
+Version: 1.0.9.23
 Date: 2017-08-18
 Authors@R: c(
   person("Laurent", "Coron", role = c("aut", "trl")),

man/CreateIniStates.Rd

@@ -77,12 +77,12 @@ InputsModel <- CreateInputsModel(FUN_MOD = RunModel_GR4J, DatesR = BasinObs$Date
 
 ## run period selection
 Ind_Run <- seq(which(format(BasinObs$DatesR, format = "\%d/\%m/\%Y \%H:\%M")=="01/01/1990 00:00"), 
-               which(format(BasinObs$DatesR, format = "\%d/\%m/\%Y \%H:\%M")=="31/12/1999 00:00"))
+               which(format(BasinObs$DatesR, format = "\%d/\%m/\%Y \%H:\%M")=="31/12/1991 00:00"))
 
 
-## preparation of the IniStates object
+### preparation of the IniStates object with low values of ProdStore and RoutStore
 IniStates <- CreateIniStates(FUN_MOD = RunModel_GR4J, InputsModel = InputsModel,
-                             ProdStore = 0.1, RoutStore = 0.6, ExpStore = NULL,
+                             ProdStore = 0, RoutStore = 0, ExpStore = NULL,
                              UH1 = c(0.52, 0.54, 0.15, rep(0, 17)),
                              UH2 = c(0.057, 0.042, 0.015, 0.005, rep(0, 36)),
                              GCemaNeigeLayers = NULL, eTGCemaNeigeLayers = NULL)
@@ -90,8 +90,36 @@ str(IniStates)
 
 ## preparation of the RunOptions object
 RunOptions <- CreateRunOptions(FUN_MOD = RunModel_GR4J, InputsModel = InputsModel,
+                               IndPeriod_WarmUp = 0L,
                                IndPeriod_Run = Ind_Run, IniStates = IniStates)
                                
+## simulation
+Param <- c(257.238, 1.012, 88.235, 2.208)
+OutputsModel <- RunModel_GR4J(InputsModel = InputsModel, RunOptions = RunOptions, Param = Param)
+
+## results preview
+plot(OutputsModel, Qobs = BasinObs$Qmm[Ind_Run])                               
+  
+  
+### preparation of the IniStates object with high values of ProdStore and RoutStore
+IniStates <- CreateIniStates(FUN_MOD = RunModel_GR4J, InputsModel = InputsModel,
+                             ProdStore = 450, RoutStore = 100, ExpStore = NULL,
+                             UH1 = c(0.52, 0.54, 0.15, rep(0, 17)),
+                             UH2 = c(0.057, 0.042, 0.015, 0.005, rep(0, 36)),
+                             GCemaNeigeLayers = NULL, eTGCemaNeigeLayers = NULL)
+str(IniStates)  
+
+## preparation of the RunOptions object
+RunOptions <- CreateRunOptions(FUN_MOD = RunModel_GR4J, InputsModel = InputsModel,
+                               IndPeriod_WarmUp = 0L,
+                               IndPeriod_Run = Ind_Run, IniStates = IniStates)
+                               
+## simulation
+Param <- c(257.238, 1.012, 88.235, 2.208)
+OutputsModel <- RunModel_GR4J(InputsModel = InputsModel, RunOptions = RunOptions, Param = Param)
+
+## results preview
+plot(OutputsModel, Qobs = BasinObs$Qmm[Ind_Run]) 
 }