Commit 95fdd275 authored by Dorchies David's avatar Dorchies David
Browse files

fix(seinebasin): error in vignettes

Refs #48
parent 90f9da83
Pipeline #25736 passed with stage
in 8 minutes and 16 seconds
......@@ -243,6 +243,10 @@ ParamMichel$STDIZ_04 <- c(1, ParamMichel$STDIZ_04)
### Run simulation
```{r RunModel}
RunOptions <- CreateRunOptions(
InputsModel = InputsModel2,
IndPeriod_Run = IndPeriod_Run
)
OutputsModels2 <- RunModel(
InputsModel2,
RunOptions = RunOptions,
......
......@@ -45,7 +45,7 @@ Generate `GRiwrmInputsModel` object
```{r CreateInputsModel}
library(seinebasin)
data(QOBS)
iEnd <-which(DatesR == as.POSIXct("2008-07-31"))
iEnd <-which(DatesR == as.POSIXct("2008-07-31", tz = "UTC"))
data(Qreservoirs)
Qobs3 <- cbind(Qobs, Qreservoirs[1:iEnd,])
......
......@@ -46,7 +46,7 @@ Generate `GRiwrmInputsModel` object
```{r CreateInputsModel}
library(seinebasin)
data(QOBS)
iEnd <-which(DatesR == as.POSIXct("2008-07-31"))
iEnd <-which(DatesR == as.POSIXct("2008-07-31", tz = "UTC"))
data(Qreservoirs)
Qobs3 <- cbind(Qobs, Qreservoirs[1:iEnd,])
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment