new extended Pipeline

added a pipeline to process the new extended data cvs file to the script. make sure to run individually.

ScriptTradeDeficit.R

@@ -63,3 +63,16 @@ trade_2018 <- trade_2018_per_quarter%>%
   summarise(n = n(),
             mean_differential = mean(differential))
 
+#pipeline using extended data
+
+trade2018_extended <- trade2018_extended_per_quarter%>%
+  mutate(import = import_q1 + import_q2 + import_q3 + import_q4)%>%
+  mutate(export = export_q1 + export_q2 + export_q3 + export_q4)%>%
+  select(year, region, export, import) %>%
+  mutate(differential = export - import)%>%
+  mutate(deficit = export < import)%>%
+  mutate(deficit = ifelse(deficit,"deficit","surplus"))%>%
+  group_by(year,deficit)%>%
+  summarise(n = n(),
+            mean_differential = mean(differential))
+