Retrait du répertoire des codes d'exemple (les codes sont dans les fichiers .Rd)

tests/example_TransfoParam_GR4J.R

-require(airGR)
-
-## transformation Raw->Transformed for the GR4J model
-    Xraw  <- matrix( c( 221.41, -3.63,  30.00, 1.37,
-                        347.23, -1.03,  60.34, 1.76,
-                        854.06, -0.10, 148.41, 2.34),
-                        ncol=4,byrow=TRUE)
-    Xtran <- TransfoParam_GR4J(ParamIn=Xraw ,Direction="RT")
-
-## transformation Transformed->Raw for the GR4J model
-    Xtran <- matrix( c( +3.60, -2.00, +3.40, -9.10,
-                        +3.90, -0.90, +4.10, -8.70,
-                        +4.50, -0.10, +5.00, -8.10),
-                        ncol=4,byrow=TRUE)
-    Xraw  <- TransfoParam_GR4J(ParamIn=Xtran,Direction="TR")

tests/example_TransfoParam_GR5J.R

-require(airGR)
-
-## transformation Raw->Transformed for the GR5J model
-    Xraw  <- matrix( c( 221.41, -2.65,  27.11, 1.37, -0.76,
-                        347.23, -0.64,  60.34, 1.76,  0.30,
-                        854.01, -0.10, 148.41, 2.34,  0.52),
-                        ncol=5,byrow=TRUE)
-    Xtran <- TransfoParam_GR5J(ParamIn=Xraw ,Direction="RT")
-
-## transformation Transformed->Raw for the GR5J model
-    Xtran <- matrix( c( +3.60, -1.70, +3.30, -9.10, -0.70,
-                        +3.90, -0.60, +4.10, -8.70, +0.30,
-                        +4.50, -0.10, +5.00, -8.10, +0.50),
-                        ncol=5,byrow=TRUE)
-    Xraw  <- TransfoParam_GR5J(ParamIn=Xtran,Direction="TR")

tests/example_TransfoParam_GR6J.R

-require(airGR)
-
-## transformation Raw->Transformed for the GR6J model
-    Xraw  <- matrix( c( 221.41, -1.18,  27.11, 1.37, -0.18,  20.09,
-                        347.23, -0.52,  60.34, 1.76,  0.02,  54.60,
-                        854.06,  0.52, 148.41, 2.34,  0.22, 148.41),
-                        ncol=6,byrow=TRUE)
-    Xtran <- TransfoParam_GR6J(ParamIn=Xraw ,Direction="RT")
-
-## transformation Transformed->Raw for the GR6J model
-    Xtran <- matrix( c( +3.60, -1.00, +3.30, -9.10, -0.90, +3.00,
-                        +3.90, -0.50, +4.10, -8.70, +0.10, +4.00,
-                        +4.50, +0.50, +5.00, -8.10, +1.10, +5.00),
-                        ncol=6,byrow=TRUE)
-    Xraw  <- TransfoParam_GR6J(ParamIn=Xtran,Direction="TR")

tests/example_plot_OutputsModel.R

-#### example 1 without snow module
-
-## load of catchment data
-require(airGR)
-data(L0123001)
-
-## preparation of the InputsModel object
-InputsModel <- CreateInputsModel(FUN_MOD=RunModel_GR4J,DatesR=BasinObs$DatesR,
-                                 Precip=BasinObs$P,PotEvap=BasinObs$E)
-
-## 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"))
-
-## 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)
-OutputsModel <- RunModel(InputsModel=InputsModel,RunOptions=RunOptions,Param=Param,
-                         FUN_MOD=RunModel_GR4J)
-
-## results preview
-plot_OutputsModel(OutputsModel=OutputsModel,Qobs=BasinObs$Qmm[Ind_Run])
-
-
-#### example 2 with snow module
-
-## load of catchment data
-require(airGR)
-data(L0123002)
-
-## preparation of the InputsModel object
-InputsModel <- CreateInputsModel(FUN_MOD=RunModel_CemaNeigeGR4J,DatesR=BasinObs$DatesR,
-                                 Precip=BasinObs$P,PotEvap=BasinObs$E,TempMean=BasinObs$T,
-                                 HypsoData=BasinInfo$HypsoData,NLayers=5)
-
-## 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"))
-
-## preparation of the RunOptions object
-RunOptions <- CreateRunOptions(FUN_MOD=RunModel_CemaNeigeGR4J,InputsModel=InputsModel,
-                               IndPeriod_Run=Ind_Run)
-
-## simulation
-Param <- c(408.774,2.646,131.264,1.174,0.962,2.249)
-OutputsModel <- RunModel(InputsModel=InputsModel,RunOptions=RunOptions,Param=Param,
-                         FUN_MOD=RunModel_CemaNeigeGR4J)
-
-## results preview
-plot_OutputsModel(OutputsModel=OutputsModel,Qobs=BasinObs$Qmm[Ind_Run])
-
-