Commit cfda186a authored by Dorchies David's avatar Dorchies David
Browse files

fix(06-evolution): error knit

Refs #12
parent b8fadc2b
Pipeline #32057 passed with stages
in 37 minutes and 34 seconds
......@@ -3,6 +3,10 @@
```{r setup, include=FALSE}
library(seinebasin2)
cfg <- loadConfig()
knitr::opts_chunk$set(
fig.width = 8,
fig.asp = 1
)
```
L'évolution est représentée sous la forme du rapport entre l'indicateur calculé sur la période future et celui calculé sur la période de référence.
......@@ -122,7 +126,7 @@ loadIndicators <- function(rcp, scenario, indicator) {
"-",
substr(cfg$hydroclim$drias$periods[[period]][2], 1, 4),
".tsv")
file <- getDataPath(
path <- getDataPath(
cfg$Qnat$path,
"Drias2020/Qnat-v1",
rcp,
......@@ -130,10 +134,10 @@ loadIndicators <- function(rcp, scenario, indicator) {
file,
cfg = cfg
)
df <- read.csv(file, sep = "\t")
m <- as.matrix(df[, -1])
rownames(m) <- df[, 1]
m
df <- read.csv(path, sep = "\t")
m <- as.matrix(df[, -1])
rownames(m) <- df[, 1]
m
})
}
......@@ -152,7 +156,6 @@ Q_month5 <- loadAllIndicators("Q_monthly_5years")
```
### Indicateurs synthétiques
Pour les étiages&nbsp;: VCN10, VCN30 et QMNA pour les périodes de retour 2 ans, 5 ans et 10 ans.
......@@ -161,8 +164,6 @@ Pour les crues&nbsp;: QJXA pour les périodes de retour 2 ans, 10 ans, 20 ans.
Pour les faibles/forts débits&nbsp;: les quantiles 95% et 10% de débits journaliers
Exemples de calculs pour les débits simulés pour le scénario `r names(QsimDrias)[1]` des stations La Seine à Vernon et la Seine à Paris Austerlitz sur la période de référence 1976-2005&nbsp;:
```{r}
Q_indicators <- loadAllIndicators("Q_indicators")
```
......
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