v1.6.3.7 style: RunModel_LAG renamed into RunModel_Lag

Refs #34

DESCRIPTION

 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.6.3.6
+Version: 1.6.3.7
 Date: 2020-10-14
 Authors@R: c(
   person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),

NAMESPACE

@@ -45,7 +45,7 @@ export(RunModel_GR5H)
 export(RunModel_GR4J)
 export(RunModel_GR5J)
 export(RunModel_GR6J)
-export(RunModel_LAG)
+export(RunModel_Lag)
 export(SeriesAggreg)
 export(TransfoParam)
 export(TransfoParam_CemaNeige)

NEWS.md

 ## Release History of the airGR Package
 
-### 1.6.3.6 Release Notes (2020-10-14)
+### 1.6.3.7 Release Notes (2020-10-14)
 
 #### New features
 

R/RunModel_LAG.R

-RunModel_LAG <- function(InputsModel, RunOptions, Param) {
+RunModel_Lag <- function(InputsModel, RunOptions, Param) {
 
   NParam <- 1
   

man/RunModel_LAG.Rd

 \encoding{UTF-8}
 
 
-\name{RunModel_LAG}
-\alias{RunModel_LAG}
+\name{RunModel_Lag}
+\alias{RunModel_Lag}
 
 
-\title{Run with the LAG model}
+\title{Run with the Lag model}
 
 
 \description{
-Function which performs a single run for the LAG model over the test period.
+Function which performs a single run for the Lag model over the test period.
 }
 
 
 \usage{
-RunModel_LAG(InputsModel, RunOptions, Param)
+RunModel_Lag(InputsModel, RunOptions, Param)
 }
 
 
@@ -25,7 +25,7 @@ RunModel_LAG(InputsModel, RunOptions, Param)
 
 \item{Param}{[numeric] vector of 1 parameter
   \tabular{ll}{
-    LAG \tab Mean flow velocity [m/s]
+    Lag \tab Mean flow velocity [m/s]
   }}
 }
 
@@ -57,7 +57,7 @@ BasinAreas <- c(NA, BasinInfo$BasinArea)
 
 ## Delay time between the reservoir and the catchment outlet is 2 days and the distance is 150 km
 LenghtHydro <- 150
-LAG <- LenghtHydro / 2 / 86400 * 1000 # Conversion km/day -> m/s
+Lag <- LenghtHydro / 2 / 86400 * 1000 # Conversion km/day -> m/s
 
 ## preparation of the InputsModel object
 InputsModel <- CreateInputsModel(FUN_MOD = RunModel_GR4J, DatesR = BasinObs$DatesR,
@@ -79,8 +79,8 @@ OutputsModelDown <- RunModel_GR4J(InputsModel = InputsModel,
                                   RunOptions = RunOptions, Param = Param)
 
 InputsModel$OutputsModel <- OutputsModelDown
-OutputsModel <- RunModel_LAG(InputsModel = InputsModel,
-                             RunOptions = RunOptions, Param = LAG)
+OutputsModel <- RunModel_Lag(InputsModel = InputsModel,
+                             RunOptions = RunOptions, Param = Lag)
 
 ## results preview of comparison between naturalised (observed) and influenced flow (simulated)
 plot(OutputsModel, Qobs = OutputsModel$QsimDown)