Commit: 69e500c5d344dfc07968ff1ff9cc2cc2a3291178 - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revisión: 69e500c5d344dfc07968ff1ff9cc2cc2a3291178 (tree)
• Tiempo: 2023-01-12 20:29:48
• Autor: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

Small adjustements to the code.

Cambiar Resumen

• modified: R-codes/process_tam_RO.R

Diferencia incremental

diff -r 11659664bddc -r 69e500c5d344 R-codes/process_tam_RO.R
--- a/R-codes/process_tam_RO.R	Thu Jan 12 11:35:58 2023 +0100
+++ b/R-codes/process_tam_RO.R	Thu Jan 12 12:29:48 2023 +0100
@@ -98,11 +98,13 @@
 ben_type <- tibble(old=c("microîntreprindere",
                          "întreprindere mică",
                          "întreprindere mijlocie",
-                         "întreprindere mare"),
+                         "întreprindere mare",
+                         "altă categorie de întreprindere"),
                    new=c("Small and medium-sized enterprises",
                          "Small and medium-sized enterprises",
                          "Small and medium-sized enterprises",
-                         "Only large enterprises"
+                         "Only large enterprises",
+                         ""
                          ))
 
 df_temp <- df_ro_name |> 
@@ -111,7 +113,8 @@
     ## mutate(granted_value_extended_eur= amount_of_aid_awarded_per_sub_category_in_romanian_lei/obs_value) |>
 
     mutate(granted_aid_absolute_eur= amount_of_aid_awarded_per_sub_category_in_romanian_lei/obs_value) |>
-    mutate(nominal_aid_absolute_eur=granted_aid_absolute_eur) |> 
+    mutate(nominal_aid_absolute_eur=NA_real_ ## granted_aid_absolute_eur
+           ) |> 
 
     
     select(-c(amount_of_aid_awarded_per_sub_category_in_romanian_lei,obs_value))  |>