Révision | 63f5ff50c0adadda48137b3173acd6604a8281ed (tree) |
---|---|
l'heure | 2020-07-08 01:44:31 |
Auteur | Lorenzo Isella <lorenzo.isella@gmai...> |
Commiter | Lorenzo Isella |
I fixed a bug in the code (the year 2008 was still giving problems).
@@ -15,6 +15,9 @@ | ||
15 | 15 | source("/home/lorenzo/myprojects-hg/R-codes/stat_lib.R") |
16 | 16 | |
17 | 17 | |
18 | + | |
19 | +options(nwarnings = 10000) | |
20 | + | |
18 | 21 | year_on_year <- rollify(sum, window=12) |
19 | 22 | |
20 | 23 |
@@ -169,15 +172,20 @@ | ||
169 | 172 | |
170 | 173 | |
171 | 174 | |
172 | -df_all_ini <- read_tsv("./input_data_files/all_trade.txt") ### imf dots file. | |
175 | +df_all_ini <- read_tsv("./input_data_files/all_trade.txt") %>% | |
176 | +filter(year>2008) | |
177 | +### imf dots file. | |
173 | 178 | ### all the reporters with partner world, but be careful about what you select. |
174 | 179 | |
175 | 180 | |
176 | -uk_world_ini <- read_tsv("./input_data_files/uk_world.tsv") | |
177 | - | |
178 | -temp <- read_tsv("./input_data_files/intra_eu27.tsv") | |
179 | - | |
180 | -temp2 <- read_tsv("./input_data_files/extra_eu27.tsv") | |
181 | +uk_world_ini <- read_tsv("./input_data_files/uk_world.tsv")%>% | |
182 | +filter(year>2008) | |
183 | + | |
184 | +temp <- read_tsv("./input_data_files/intra_eu27.tsv")%>% | |
185 | +filter(year>2008) | |
186 | + | |
187 | +temp2 <- read_tsv("./input_data_files/extra_eu27.tsv")%>% | |
188 | +filter(year>2008) | |
181 | 189 | |
182 | 190 | ## df_intra_extra_ini<-read_tsv("./input_data_files/eu_intra_extra.txt") |
183 | 191 |
@@ -280,9 +288,9 @@ | ||
280 | 288 | |
281 | 289 | df_ie_all <- rbind(df_ie_extra, df_ie_all,uk_ie_world ) %>% |
282 | 290 | arrange(reporterlabel, year) %>% |
283 | - {.$e_value[.$reporterlabel=="World"]=.$e_value[.$reporterlabel=="World"]-df_intra$e_value | |
291 | + {.$e_value[.$reporterlabel=="World"]=.$e_value[.$reporterlabel=="World"]-df_ie_intra$e_value | |
284 | 292 | .} %>% |
285 | - {.$i_value[.$reporterlabel=="World"]=.$i_value[.$reporterlabel=="World"]-df_intra$i_value | |
293 | + {.$i_value[.$reporterlabel=="World"]=.$i_value[.$reporterlabel=="World"]-df_ie_intra$i_value | |
286 | 294 | .} |
287 | 295 | |
288 | 296 |