| Revision | b5ca5675dc9e8f1cc873d343c7c79f8cebe9f03d (tree) |
|---|---|
| Time | 2021-11-25 20:34:28 |
| Author | Lorenzo Isella <lorenzo.isella@gmai...> |
| Commiter | Lorenzo Isella |
Minor modifications and some bugs fixed in particular about the determination of the year.
R-codes/clean_tam_new.R (diff) R-codes/process_tam_pl_new.R (diff)| @@ -14,8 +14,11 @@ | ||
| 14 | 14 | |
| 15 | 15 | df_ini2 <- readRDS("/home/lorenzo/MEGA/work/COMP/stat_support/tam-PL/Submission_from_Poland-10.2020/covid_data/tam_PL_matched.RDS") |
| 16 | 16 | |
| 17 | -df_ini <- df_ini %>% | |
| 17 | +df_ini3 <- df_ini %>% | |
| 18 | 18 | clean_names() %>% |
| 19 | + mutate(year=as.numeric(aid_award_granted_date)) %>% | |
| 20 | + mutate(year=excel_numeric_to_date(year)) %>% | |
| 21 | + mutate(year=year(year)) %>% | |
| 19 | 22 | bind_rows(df_ini2) |
| 20 | 23 | |
| 21 | 24 | covid_data_ini <- read_excel("SA-Covid19-Submission_from_MS_Case_EC-512135.xlsx") |
| @@ -30,12 +33,12 @@ | ||
| 30 | 33 | |
| 31 | 34 | |
| 32 | 35 | |
| 33 | -df <- df_ini %>% | |
| 36 | +df <- df_ini3 %>% | |
| 34 | 37 | clean_data() %>% |
| 35 | 38 | mutate(across(contains("aid_absolute_eur"), ~as.numeric(.x))) %>% |
| 36 | 39 | mutate(across(contains("date"), ~as.numeric(.x))) %>% |
| 37 | 40 | mutate(across(contains("date"), ~excel_numeric_to_date(.x))) %>% |
| 38 | - mutate(year=year(aid_award_granted_date)) %>% | |
| 41 | + ## mutate(year=year(aid_award_granted_date)) %>% | |
| 39 | 42 | mutate(lower_bound=str_extract_before(granted_range_eur,"-")) %>% |
| 40 | 43 | mutate(upper_bound=str_extract_after(granted_range_eur,"-")) %>% |
| 41 | 44 | mutate(lower_bound=as.numeric(lower_bound), |
| @@ -11,7 +11,7 @@ | ||
| 11 | 11 | |
| 12 | 12 | |
| 13 | 13 | |
| 14 | -read_excel_files <- 0 | |
| 14 | +read_excel_files <- 1 | |
| 15 | 15 | |
| 16 | 16 | |
| 17 | 17 |
Fork