******************* Data 22.1.2021
******************* 
******************* Table 5
******************* 
******************* FINAL 2021 JEG submission

*******************
******************* Height 1900
******************* 
****
size 9000
par 400000

file 11 f:\JOEG\x\DB CJ.txt
file 12 f:\JOEG\x\DB HJ.txt
file 13 f:\JOEG\x\DB_Comb.txt
file 14 f:\JOEG\x\Long_Data_Clio.txt
file 15 f:\JOEG\x\GERT.txt
file 16 f:\JOEG\x\GERS.txt
file 17 f:\JOEG\x\GERp.txt
file 18 f:\JOEG\x\latnew.txt
file 19 f:\JOEG\x\agrsuit.txt
file 20 f:\JOEG\x\exec.txt
file 21 f:\JOEG\x\popUrb.txt
file 22 f:\JOEG\x\g-o.txt
file 23 f:\JOEG\x\geodis.txt


read (11) cn urb2000 ys2000 dp1500 H1995M H19995L H1995H DAfr DEur DAsia DNAm DSAm DAmT DOcea &
BMI1500 H1500 InduY LatAdj YPop2000 PNativ LatAbsCJ FerRe FerCC FerJ H1900m H1900L H1900H ly2000 lurb2000 lpd1500 bm15p h15p ruggc
* bm15p h15p = body mass and height 15 Paula
** Hall-Jones data
read (12) cn pubTeach eduExp MinY SocInf yrsopen GADP EngFra EurLangu openness cvol Trust pre15 post15 exprAj exprg
** cvol = climate vulnerability
** Trust = WVS
** pre15 post15 = average calories mean from James 2021
** exprAj = expropriation risk, Acemoglu (from James 2021)
** exprg = expropriation risk, Global Economics
************* SEE BELOW FOR FULL LABELS **************************
read (13) cn setmY pro95Y urb15Y pd15Y excolA exprA Dem19A exec19A mortCA cathA MusA FraLOA dem60J riceJ rugJ distJ precJ &
elevJ TempJ Yp18J  Yp19J Yp2011J minJ Lit19J PID40 PID40XX PID19b  ViDemA ViDemB ViDemC ViDemD ViDemE ViDemF ViDemg &
 ViDemh rugN CoastN indivH
read (14) cn h1730C h1800C h1850C  H1900C H2000C urb15C urb17C urb18C urb1850C urb19C urb20C pop15C pop18C pop20C goat15C goat16C goat17C &
goat18C goat19C  goat20C pig15C pig16C pig17C pig18C pig19C  pig20C crop15C crop16C crop17C crop18C crop19C  crop20C &
cat15C cat16C cat17C cat18C cat19C  cat20C 
** GER TERT
read (15) cn GERcod T1820 t1825 T1830 t1835 T1840 t1845 T1850 t1855 T1860 t1865 T1870 t1875 T1880 t1885 T1890 t1895 &
 T1900 t1905 T1910 t1915 T1920 t1925 T1930 t1935 T1940 t1945 T1950 t1955 T1960 t1965 T1970 t1975 T1980 t1985 T1990 &
t1995 T2000 t2005 t2010
*XXXXXXXXXXX
*** GERcod = 1 if data are available for the country (GERT.eq.0) because the GER is zero at some years for some countries)XXXX
*XXXXXXXXXXX
read (16) cn GERcod S1820 S1825 S1830 S1835 S1840 S1845 S1850 S1855 S1860 S1865 S1870 S1875 S1880 S1885 S1890 S1895 &
 S1900 S1905 S1910 S1915 S1920 S1925 S1930 S1935 S1940 S1945 S1950 S1955 S1960 S1965 S1970 S1975 S1980 S1985 S1990 &
S1995 S2000 S2005 S2010
read (17) cn GERcod P1820 P1825 P1830 P1835 P1840 P1845 P1850 P1855 P1860 P1865 P1870 P1875 P1880 P1885 P1890 P1895 &
 P1900 P1905 P1910 P1915 P1920 P1925 P1930 P1935 P1940 P1945 P1950 P1955 P1960 P1965 P1970 P1975 P1980 P1985 P1990 &
P1995 P2000 P2005 P2010
read (18) latabs
read (19) agSuiG sofert pat9 pat7 AgrSuiM AgSus AgSui
read (20) exec18 exec19 exec20
read (21) GO1-GO240
read (22) pop15mx pop16mx pop17mx urb15mx urb16mx urb17mx area
** Galor-Ozak
read (23) ukdist usdist
** Bilateral distance to capital city from UK and US
set nowarnmiss
set missvalu = 0
set nowarnskipmiss
set nowarn
genr Yp2011Jl = log(Yp2011J)
genr latabsn = latabscj
if(latabscj.eq.0) latabsn = latabs
genr latabsnl = log(latabsn)
genr pd15yl = log(pd15y)
genr pd15l = log(dp1500)
genr urb2000l = log(urb2000)
genr dp20 = pop20c/area
genr dp20l = log(dp20)
skipif(latabs.eq.0)
skipif(dp1500.eq.0)
** Fig XX
ols pd15l latabs DAfr DEur DAsia DNAm DSAm / hetcov 
ols pd15l DAfr DEur DAsia DNAm DSAm / hetcov resid = respd 
ols latabs DAfr DEur DAsia DNAm DSAm / hetcov resid = reslat
ols reslat respd    / hetcov predict = popdp
print respd  popdp reslat 

del skip$
skipif(latabs.eq.0)
skipif(urb2000.eq.0)
** Fig XX
ols urb2000l latabs DAfr DEur DAsia DNAm DSAm DOcea / hetcov 
ols urb2000l DAfr DEur DAsia DNAm DSAm DOcea / hetcov resid = respd 
ols latabs DAfr DEur DAsia DNAm DSAm DOcea / hetcov resid = reslat
ols reslat respd    / hetcov predict = popdp
print respd  popdp reslat 


***** Europe
skipif(latabs.eq.0)
skipif(dp1500.eq.0)
skipif(DEur.eq.0)
** Fig XX
ols pd15l latabs / hetcov 
ols pd15l / hetcov resid = respd 
ols latabs / hetcov resid = reslat
ols reslat respd    / hetcov predict = popdp
print respd  popdp reslat 

del skip$
skipif(latabs.eq.0)
skipif(urb2000.eq.0)
skipif(DEur.eq.0)
** Fig XX
ols urb2000l latabs / hetcov 
ols urb2000l / hetcov resid = respd 
ols latabs / hetcov resid = reslat
ols reslat respd    / hetcov predict = popdp

stop