docs(vignette): indent code and change number of digits in summary

vignettes/V01_get_started.Rmd

@@ -63,7 +63,7 @@ Below is presented an example of a `data.frame` of daily hydrometeorological obs
   
 ```{r}
 data(L0123001)
-summary(BasinObs)
+summary(BasinObs, digits = 2)
 ```
 The usual functions (e.g. `read.table()`) can be used to load real-case data sets.
 

vignettes/V05_sd_model.Rmd

@@ -69,8 +69,8 @@ InputsModelUp <- CreateInputsModel(FUN_MOD = RunModel_GR4J, DatesR = BasinObs$Da
 Ind_Run <- seq(which(format(BasinObs$DatesR, format = "%Y-%m-%d") == "1990-01-01"),
                which(format(BasinObs$DatesR, format = "%Y-%m-%d") == "1999-12-31"))
 RunOptionsUp <- CreateRunOptions(FUN_MOD = RunModel_GR4J,
-                                 InputsModel = InputsModelUp
-                                 , IndPeriod_WarmUp = NULL, IndPeriod_Run = Ind_Run,
+                                 InputsModel = InputsModelUp,
+                                 IndPeriod_WarmUp = NULL, IndPeriod_Run = Ind_Run,
                                  IniStates = NULL, IniResLevels = NULL)
 InputsCritUp <- CreateInputsCrit(FUN_CRIT = ErrorCrit_NSE, InputsModel = InputsModelUp,
                                  RunOptions = RunOptionsUp,
@@ -198,9 +198,9 @@ Theoretically, the parameters of the downstream GR4J model should be the same as
 ```{r}
 ParamDownTheo <- c(Lag, OutputsCalibUp$ParamFinalR)
 OutputsModelDownTheo <- RunModel(InputsModel = InputsModelDown2,
-                              RunOptions = RunOptionsDown,
-                              Param = ParamDownTheo,
-                              FUN_MOD = RunModel_GR4J)
+                                 RunOptions = RunOptionsDown,
+                                 Param = ParamDownTheo,
+                                 FUN_MOD = RunModel_GR4J)
 CritDownTheo <- ErrorCrit_NSE(InputsCritDown, OutputsModelDownTheo)
 ```