s_output.Rmd

---
title: "Výstup: dokumentace, validace"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE,
                      comment = "")
source("_targets_packages.R")
options(crayon.enabled = FALSE)
cnf <- config::get()
names(cnf) <- paste0("c_", names(cnf))
list2env(cnf, envir = .GlobalEnv)
```

```{r load targets}
targets::tar_load(macro_sum_reg_quarterly)
targets::tar_load(macro_sum_reg_annual)
targets::tar_load(macro_sum_quarterly)
targets::tar_load(macro_sum_annual)
targets::tar_load(macro_sum_nplus3_reg)
targets::tar_load(ef_pub)
targets::tar_load(efs_prv)
targets::tar_load(efs_prv_quarterly)
targets::tar_load(efs_zop_quarterly)
targets::tar_load(efs_fin)
targets::tar_load(macro_sum_codebook)
targets::tar_load(macro_sum_nplus3_codebook)
targets::tar_load(s7_sum_prg)
# targets::tar_load(s7_categorised_prj)
targets::tar_load(s7_sum_macro_detail)

```

# {.tabset}

## Dokumentace hlavního výstupu

### Soubory  {.tabset .tabset-pills}

Vše v `` `r  
c_macro_export_dir` `` ([Github](`r paste0(c_repo_remote, "/tree/master/", c_macro_export_dir)`)) 

Data s krajským rozpadem obsahují sloupec s kódem NUTS3.

CSV soubory uzpůsobeny pro Excel (úprava konce řádků) a CEE region (odděleno středníky, desetinná čárka).

#### Standardní ze ŽOP

- součty po letech: `` `r  
c_macro_export_reg_csv_a` `` / `` `r  
c_macro_export_reg_xlsx_a` ``
- součty po čtvrtletích: `` `r  
c_macro_export_csv_q` `` / `` `r  
c_macro_export_xlsx_q` ``

#### Dopočet N+3

Pouze roční členění.

Dva rozdíly v názvech sloupců (viz codebook):

- součty výdajů se jmenují `fin_zbyva_*`
- proměnná času se jmenuje `dt_nplus3_rok`

K metodě dovození projekce N+3 viz [dokumentaci projektu](s_doc.html).

- součty po letech, bez regionů: `` `r  
c_macro_export_nplus3_csv` `` / `` `r  
c_macro_export_nplus3_xlsx` ``
- součty po letech, s regiony: `` `r  
c_macro_export_nplus3_reg_csv` `` / `` `r  
c_macro_export_nplus3_reg_xlsx` ``

### Codebook  {.tabset .tabset-pills}

#### Standardní ze ŽOP

```{r codebook}
macro_sum_codebook
```

Zapsáno v `r file.path(c_macro_export_dir, c_macro_export_cdbk)`

#### Dopočet N+3

```{r codebook-nplus3}
macro_sum_nplus3_codebook
```

Zapsáno v `r file.path(c_macro_export_dir, c_macro_export_nplus3_cdbk)`

## Náhled proměnných 

### Standardní sada ze ŽOP

```{r columns}
glimpse(macro_sum_reg_quarterly)
```

### N+3

```{r columns-nplus3}
glimpse(macro_sum_nplus3_reg)
```

## Validace výstupu

### Součty

#### 2014-20

```{r soucty-1420}
targets::tar_read(val_compare_sums)
```


### Základní časové řady

IN PROGRESS

```{r}
macro_sum_reg_quarterly %>% 
  count(kraj_id, dt_zop_rok, wt = round(fin_vyuct_czv_wt_cond/1e9, 2)) %>% 
  spread(dt_zop_rok, n)
```

```{r}
macro_sum_reg_quarterly %>% 
  count(source, wt = fin_vyuct_czv_wt_cond)
```

```{r}
# efs_fin %>% count(wt = fin_vyuct_czv)
# efs_zop %>% count(wt = fin_vyuct_czv)
```

## Validace N+3

### K řešení

Níže vizuální diagnostika dvou pravděpodobných problémů:

- nepravděpodobný průběh výdajů podle naší projekce N+3
- chybějící údaje pro regionalizaci části projektů

#### Celkový průběh

Zdá se, že přes menší vážení roku 2021 při rozkladu budoucích výdajů mezi roky se odhad budoucích výdajů hodně koncentruje do roku 2021, což moc neodpovídá dynamice výdajů v minulém období. 

```{r plt_with_nplus3}
targets::tar_read(plt_with_nplus3)
```

Nejspíš je to tím, že v období 2007-13 i 2014-20 vycházíme z plateb, které jsou většinou ex post, kdežto v projekci N+3 toto nebereme v potaz a rozkládáme předpokládané budoucí výdaje jen do období fyzické realizace. (Jiné datum ani nemáme k dispozici, ale mohli bychom zpoždění plateb oproti realizaci zprůměrované z již proběhlých projektů aplikovat na běžící projekty.)

Pozn.: finanční pokrok 2014-20 ke Q2 2021 lze najít ve [čtvrtletní správě NOK](https://www.dotaceeu.cz/getmedia/96d40604-f15b-491d-9dda-964a06eee007/Ctvrtletni-zprava-o-implementaci-DoP-2014-2020_el-verze_13.pdf.aspx?ext=.pdf)

Pro srovnání 2007-13, kde platilo N+2, tj. konečný rok běhu projektů je 2015.

```{r plt_7_annual}
targets::tar_read(plt_7_annual)
```

#### Regionální rozpad a celek

Vyřešeno - rozdíl mezi regionálně rozpadlým a celorepublikovým součtem je ~0.

### Součty

```{r}
targets::tar_read(val_compare_sums_nplus3)
```


## 2007-13

### Soubory

Vše v `` `r  
c_export_0713_dir` `` ([Github](`r paste0(c_repo_remote, "/tree/master/", c_export_0713_dir)`)) 

V adresáři je také soubor `` `r  
c_export_0713_kategorie` `` s náhledem kategorií (témat i ekonomických) a jejich objemy.

### Dokumentace

```{r}
targets::tar_read(s7_codebook)
```

Zapsáno v `r file.path(c_export_0713_dir, c_export_0713_cdbk)`

### Náhled proměnných (detailnější rozpad)

```{r 713-columns}
glimpse(s7_sum_macro_detail)
```