Commit: 63f5ff50c0adadda48137b3173acd6604a8281ed - myprojects-hg-reborn (hg)

Commit MetaInfo

• Révision: 63f5ff50c0adadda48137b3173acd6604a8281ed (tree)
• l'heure: 2020-07-08 01:44:31
• Auteur: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Message de Log

I fixed a bug in the code (the year 2008 was still giving problems).

Change Summary

• modified: R-codes/pocket_guide.R

Modification

diff -r 4d0f586b634b -r 63f5ff50c0ad R-codes/pocket_guide.R
--- a/R-codes/pocket_guide.R	Tue Jul 07 16:19:05 2020 +0200
+++ b/R-codes/pocket_guide.R	Tue Jul 07 18:44:31 2020 +0200
@@ -15,6 +15,9 @@
 source("/home/lorenzo/myprojects-hg/R-codes/stat_lib.R")
 
 
+
+options(nwarnings = 10000) 
+
 year_on_year <- rollify(sum, window=12)
 
 
@@ -169,15 +172,20 @@
 
 
 
-df_all_ini <- read_tsv("./input_data_files/all_trade.txt") ### imf dots file.
+df_all_ini <- read_tsv("./input_data_files/all_trade.txt") %>%
+filter(year>2008)
+### imf dots file.
 ### all the reporters with partner world, but be careful about what you select.
 
 
-uk_world_ini <- read_tsv("./input_data_files/uk_world.tsv")
-
-temp <- read_tsv("./input_data_files/intra_eu27.tsv")
-
-temp2 <- read_tsv("./input_data_files/extra_eu27.tsv")
+uk_world_ini <- read_tsv("./input_data_files/uk_world.tsv")%>%
+filter(year>2008)
+
+temp <- read_tsv("./input_data_files/intra_eu27.tsv")%>%
+filter(year>2008)
+
+temp2 <- read_tsv("./input_data_files/extra_eu27.tsv")%>%
+filter(year>2008)
 
 ## df_intra_extra_ini<-read_tsv("./input_data_files/eu_intra_extra.txt")
 
@@ -280,9 +288,9 @@
 
 df_ie_all <- rbind(df_ie_extra, df_ie_all,uk_ie_world ) %>%
     arrange(reporterlabel, year) %>%
-    {.$e_value[.$reporterlabel=="World"]=.$e_value[.$reporterlabel=="World"]-df_intra$e_value
+    {.$e_value[.$reporterlabel=="World"]=.$e_value[.$reporterlabel=="World"]-df_ie_intra$e_value
     .} %>% 
-    {.$i_value[.$reporterlabel=="World"]=.$i_value[.$reporterlabel=="World"]-df_intra$i_value
+    {.$i_value[.$reporterlabel=="World"]=.$i_value[.$reporterlabel=="World"]-df_ie_intra$i_value
         .}