diff --git a/vignettes/V01_get_started.Rmd b/vignettes/V01_get_started.Rmd
index 3c5eb159f74fda55ecdf2de6231b9cef7297c3b8..6ffdbfc4bb19de17fcd1c6ea878c279f3cc31e35 100644
--- a/vignettes/V01_get_started.Rmd
+++ b/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.
 
diff --git a/vignettes/V05_sd_model.Rmd b/vignettes/V05_sd_model.Rmd
index f970f603124a8b78ba73fbe23f29d0d5db27fa16..383d8a93cc9e35ade7d23c98a962c8991aa687db 100644
--- a/vignettes/V05_sd_model.Rmd
+++ b/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)
 ```