Commit: 77d878eb17b29138da03f652fa7eaf14d8951ea4 - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revisión: 77d878eb17b29138da03f652fa7eaf14d8951ea4 (tree)
• Tiempo: 2022-11-24 06:43:32
• Autor: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

I simply changed a bit a function and moved one line.

Cambiar Resumen

• modified: R-codes/arima_simple1_parallel.R

Diferencia incremental

diff -r c62d3ddc8700 -r 77d878eb17b2 R-codes/arima_simple1_parallel.R
--- a/R-codes/arima_simple1_parallel.R	Wed Nov 23 20:08:53 2022 +0100
+++ b/R-codes/arima_simple1_parallel.R	Wed Nov 23 22:43:32 2022 +0100
@@ -14,17 +14,16 @@
 tidymodels_prefer()
 
 
+source("/home/lorenzo/myprojects-hg/R-codes/stat_lib.R")
 
 
-
-
-extract_ms_data <- function( ms){
+extract_ms_data <- function( ms, log_trans){
 
     res <- price_series |>
         filter(geo==ms)|>
     select(-geo) 
 
-    if (choose_log==1){
+    if (log_trans==1){
         res <- res|>
             mutate(value=log(value))
         
@@ -64,9 +63,6 @@
 
 plan(multisession, workers = 4)
 
-source("/home/lorenzo/myprojects-hg/R-codes/stat_lib.R")
-
-
 choose_log <- 1
 
 
@@ -85,7 +81,7 @@
 
 ## ms_list <- c("DE", "AT", "FI")
 
-ms_data <- future_map(ms_list,  extract_ms_data )
+ms_data <- future_map2(ms_list,choose_log,  extract_ms_data )
 
 
 splits_parallel <- future_map( ms_data,