Commit 69a71346 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

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

parent 9f001c79
Pipeline #20953 passed with stages
in 48 minutes and 36 seconds
......@@ -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.
......
......@@ -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)
```
......
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