feat(vignette): add plot of calibrated run

Refs #3

vignettes/V03_First_Calibration.Rmd

@@ -44,4 +44,34 @@ str(CalibOptions)
 OutputsCalib <- Calibration(InputsModel, RunOptions, InputsCrit, CalibOptions)
 ```
 
+```{r}
+save(OutputsCalib, file = "_cache/V03.RData")
+```
+
+
+## Run model with Michel calibration
+
+```{r}
+giropMichel <- girop
+for(id in giropMichel$id) {
+  giropMichel$params[giropMichel$id == id] <- list(OutputsCalib[[id]]$Param)
+}
+
+OutputsModels <- RunModel(
+  InputsModel = InputsModel,
+  RunOptions = RunOptions,
+  girop = giropMichel
+)
+```
+
+## Plot the result for each basin
+
+```{r, fig.height = 5, fig.width = 8}
+htmltools::tagList(lapply(
+  names(OutputsModels), 
+  function(x) {
+    plot(OutputsModels[[x]], Qobs = gits[[x]]$Qobs[RunOptions[[x]]$IndPeriod_Run] , main = x)
+  }
+))
+```
 

vignettes/v02_First_run.Rmd

@@ -104,7 +104,7 @@ RunOptions <- CreateRunOptions(
 ## Run the SD model for the whole basin
 
 ```{r}
-OutputsModels <- RunModel(
+OutputsModelsClimAware <- RunModel(
   InputsModel = InputsModel,
   RunOptions = RunOptions,
   girop
@@ -121,9 +121,9 @@ save(RunOptions, file = "_cache/V02.RData")
 
 ```{r, fig.height = 5, fig.width = 8}
 htmltools::tagList(lapply(
-  names(OutputsModels), 
+  names(OutputsModelsClimAware), 
   function(x) {
-    plot(OutputsModels[[x]], Qobs = gits[[x]]$Qobs[IndPeriod_Run] , main = x)
+    plot(OutputsModelsClimAware[[x]], Qobs = gits[[x]]$Qobs[IndPeriod_Run] , main = x)
   }
 ))
 ```