tuto_avionic.Rmd

---
title: "Tuto Avionic"
output: html_notebook
---

```{r setup}
library("tidyverse")
source(file = "fonctions.R")
source(file = "contenus.R")
source(file = "variation_df.R")
source(file= "variation_prix.R")
```

## Import des données

```{r}
tei_imp <- matrice(fichier = "data-raw/FR_2015_38/tei_imp_2015.csv")
tei_dom <- matrice(fichier = "data-raw/FR_2015_38/tei_dom_2015.csv")
prod <- matrice(fichier = "data-raw/FR_2015_38/prod_dom_2015.csv")
ef_i <- matrice(fichier = "data-raw/FR_2015_38/conso_imp_menage_2015.csv")
ef_d <- matrice(fichier = "data-raw/FR_2015_38/conso_dom_menage_2015.csv")
df_d <- matrice(fichier = "data-raw/FR_2015_38/dde_dom_2015.csv")
df_i <- matrice(fichier = "data-raw/FR_2015_38/dde_imp_2015.csv")
emploi <- matrice(fichier = "data-raw/FR_2015_38/eqtp_2015.csv")
var_df <- matrice(fichier = "data-raw/FR_2015_38/var_df.csv")
coeff_trans <- matrice(fichier = "data-raw/FR_2015_38/coeff_transmission_38.csv")
```

## Calcul des contenu

```{r}
res.contenus_imp <- contenus_imp(prod, tei_dom, tei_imp, ef_d, ef_i)
res.contenus_va <- contenus_va(prod, tei_dom, tei_imp, ef_d, ef_i)
res.contenus_emploi <- contenus_emploi(prod, tei_dom, ef_d, emploi)
```

## Réponses à une variation de la demande

```{r}
res.variation_prod <- variation_prod(prod, tei_dom, df_d, var_df)
res.variation_imp <- variation_imp(prod, tei_dom, tei_imp, df_d, df_i, var_df)
res.variation_emp <- variation_emploi(prod, tei_dom, df_d, var_df, emploi)
```

## Réponse à une variation de prix

```{r}
res.variation_prix <- variation_prix(tei_dom, prod, 9, 50)
res.variation_prix_coeff <- variation_prix(tei_dom, prod, 9, 50, coeff_trans)
```