/* *** This do file creates the replication results for Are Left-Wing Party Strength and Corporatism Good for the Environment? A Panel Analysis of 21 OECD Countries, 1980-1998, Ecological Economics 45 (2), 2003, pp. 203-220 Eric Neumayer (LSE) Please report any errors to e.neumayer@lse.ac.uk */ version 8 use "Article for Ecological Economics (left-wing & corporatism).dta", clear * co2 full period xi: areg lnco2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars i.year, absorb(country) robust xi: areg lnco2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars i.year, absorb(country) robust cluster(country) xi: xtreg lnco2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars siaroff i.year, re robust xi: xtreg lnco2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars siaroff i.year, re robust cluster(country) * co2 1989 onwards preserve drop if year<1989 xi: areg lnco2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars i.year, absorb(country) robust xi: areg lnco2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars i.year, absorb(country) robust cluster(country) xi: xtreg lnco2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars siaroff i.year, re robust xi: xtreg lnco2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars siaroff i.year, re robust cluster(country) restore * so2 preserve drop if country=="Japan" drop if country=="Australia" drop if country=="New Zealand" xi: areg lnso2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars i.year, absorb(country) robust xi: areg lnso2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars i.year, absorb(country) robust cluster(country) xi: xtreg lnso2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars siaroff i.year, re robust xi: xtreg lnso2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars siaroff i.year, re robust cluster(country) restore * no2 preserve drop if country=="Japan" drop if country=="Australia" drop if country=="New Zealand" xi: areg lnno2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars i.year, absorb(country) robust xi: areg lnno2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars i.year, absorb(country) robust cluster(country) xi: xtreg lnno2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars siaroff i.year, re robust xi: xtreg lnno2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars siaroff i.year, re robust cluster(country) restore * co preserve drop if country=="Japan" drop if country=="Australia" drop if country=="New Zealand" drop if year<1990 xi: areg lnco lngdp lneff manufact cleansh leftc lefts2 llseat lncars i.year, absorb(country) robust xi: areg lnco lngdp lneff manufact cleansh leftc lefts2 llseat lncars i.year, absorb(country) robust cluster(country) xi: xtreg lnco lngdp lneff manufact cleansh leftc lefts2 llseat lncars siaroff i.year, re robust xi: xtreg lnco lngdp lneff manufact cleansh leftc lefts2 llseat lncars siaroff i.year, re robust cluster(country) restore * voc preserve sort country drop if country=="Japan" drop if country=="Australia" drop if country=="New Zealand" drop if year<1990 xi: areg lnvoc lngdp lneff manufact cleansh leftc lefts2 llseat lncars i.year, absorb(country) robust xi: areg lnvoc lngdp lneff manufact cleansh leftc lefts2 llseat lncars i.year, absorb(country) robust cluster(country) xi: xtreg lnvoc lngdp lneff manufact cleansh leftc lefts2 llseat lncars siaroff i.year, re robust xi: xtreg lnvoc lngdp lneff manufact cleansh leftc lefts2 llseat lncars siaroff i.year, re robust cluster(country) restore