getwd()
setwd("c:/nvilloria/Dropbox/Papers/GTAP-ModalShares/Data/RawData/EU_Data")
table(data$flow)
with(data, data[ reporter == "AT" & partner == "AD" & product == 220870,])
with(data, data[ reporter == "AT" & product == 220870,])
with(data, data[ reporter == "AD" & product == 220870,])
q()
q()
q()
