These are the Stata commands used for tables 1-4 and the appendix tables 1a-4a in 
the article "NAFTA and the Geography of North American Trade" by Howard J. Wall 
in the March/April 2003 issue of the Federal Reserve Bank of St. Louis Review. 
More information on the data is included in the data appendix of the article itself 
(page 12).

generate lryi=log(yi/cpi);
generate lryj=log(yj/cpi);
generate lrexpij=log(1+(expij/cpi));

areg lrexpij lryi lryj  
   us1can1 us2can1 us3can1 us4can1 us5can1 us6can1 us7can1 us8can1 us9can1  
   us1can2 us2can2 us3can2 us4can2 us5can2 us6can2 us7can2 us8can2 us9can2  
   us1can3 us2can3 us3can3 us4can3 us5can3 us6can3 us7can3 us8can3 us9can3  
   can1us1 can1us2 can1us3 can1us4 can1us5 can1us6 can1us7 can1us8 can1us9  
   can2us1 can2us2 can2us3 can2us4 can2us5 can2us6 can2us7 can2us8 can2us9  
   can3us1 can3us2 can3us3 can3us4 can3us5 can3us6 can3us7 can3us8 can3us9  
   mexcan1 mexcan2 mexcan3         
   can1mex can2mex can3mex      
   eurcan1 eurcan2 eurcan3         
   can1eur can2eur can3eur      
   asiacan1 asiacan2 asiacan3         
   can1asia can2asia can3asia 								
   eurmex asiamex								
   mexeur mexasia								
   eutc eutd1 eutd2     								
   year, absorb(pair) robust;