提交: 6cf0f5ce836f3c81837f40f64e319fe681625ffb - myprojects-hg-reborn (hg)

Commit MetaInfo

• 修订版: 6cf0f5ce836f3c81837f40f64e319fe681625ffb (tree)
• 时间: 2023-01-28 04:07:45
• 作者: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

Small modifications for the new dplyr release + possibility to exclude more than 1 country.

更改概述

• modified: R-codes/arima_simple3_parallel.R

差异

diff -r 35ba5390cb5c -r 6cf0f5ce836f R-codes/arima_simple3_parallel.R
--- a/R-codes/arima_simple3_parallel.R	Thu Jan 26 20:09:19 2023 +0100
+++ b/R-codes/arima_simple3_parallel.R	Fri Jan 27 20:07:45 2023 +0100
@@ -13,6 +13,8 @@
 
 tidymodels_prefer()
 
+'%!in%' <- function(x,y)!('%in%'(x,y))
+
 
 
 
@@ -86,13 +88,28 @@
 }
 
 
+## pattern_to_na <- function(df, pattern){
+
+## ## res <- df %>% na_if(.,  pattern)
+
+## res <- df |> (\(x) na_if(x,  pattern))()
+
+
+    
+## return(res)    
+    
+## }
+
 pattern_to_na <- function(df, pattern){
 
 ## res <- df %>% na_if(.,  pattern)
 
-res <- df |> (\(x) na_if(x,  pattern))()
+## res <- df |> (\(x) na_if(x,  pattern))()
 
-
+## across(where(is.character), \(x) na_if(x, "D"))
+    
+    res <- df |>
+        mutate(across(where(is.character), \(x) na_if(x, pattern)))
     
 return(res)    
     
@@ -144,7 +161,7 @@
     rename("value"="obs_value",
            "date"="time_period") |>
     filter(geo %in% iso_map_eu27$iso2,
-           geo!="MT") 
+           geo %!in% c("MT", "ES")) 
 
 ms_list <- price_series |>
     pull(geo) |>