Commit: cc26971bf365f62cd9c8d653569b062b971be431 - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revisión: cc26971bf365f62cd9c8d653569b062b971be431 (tree)
• Tiempo: 2022-11-11 00:58:32
• Autor: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

I send "" and "0" to NA and I now treat the case of a single lower bound for the interval.

Cambiar Resumen

• modified: R-codes/create_tam_parquet.R

Diferencia incremental

diff -r 6dccf62f34a0 -r cc26971bf365 R-codes/create_tam_parquet.R
--- a/R-codes/create_tam_parquet.R	Tue Nov 08 17:38:01 2022 +0100
+++ b/R-codes/create_tam_parquet.R	Thu Nov 10 16:58:32 2022 +0100
@@ -108,11 +108,11 @@
     mutate(across(contains("bound") , ~ ifelse(.x == "",
                                  NA_character_, .x))) |>
     mutate(across(contains("bound"), ~as.numeric(.x))) |> 
-    mutate(estimated_value=(lower_bound+upper_bound)/2.)  |>
+    mutate(estimated_value=if_else(!is.na(upper_bound),(lower_bound+upper_bound)/2., lower_bound) ) |>
 
     ## only if you want to remove all the zeros
     
-    ## mutate(across(where(is.numeric), ~if_else(.x==0, NA_real_, .x))) |> 
+    mutate(across(where(is.numeric), ~if_else(.x==0, NA_real_, .x))) |> 
     select(-c(lower_bound, upper_bound)) |>
 
     mutate(granted_value_extended_eur = case_when(