/*
Catherine Reyes-Housholder, COES-Universidad Diego Portales

www.reyes-housholder.com

February 27, 2019

Replication Models for "A Theory of Gender's Role on Presidential Approval Ratings in Corrupt Times"

Forthcoming in Political Research Quarterly

*/

*Table 1
sum net
sum pressex
sum execorr
sum allscandal
sum presideology
sum honeymoon
sum gdpgrowth
sum unemp
sum inflationperchange

*Model 1 
xtpcse net i.pressex i.allscandals presideology honeymoon gdpgrowth unemp inflationperchange l4net i.countrynumber 

*Model 2 
xtpcse net i.pressex i.allscandals presideology honeymoon gdpgrowth unemp inflationperchange i.countryperiod i.countrynumber 

*Model 3 
xtpcse net i.pressex c.execorr presideology honeymoon gdpgrowth unemp inflationperchange l4net i.countrynumber

*Model 4 
xtpcse net i.pressex c.execorr presideology honeymoon gdpgrowth unemp inflationperchange i.countryperiod i.countrynumber 

*Model 5 
xtpcse net i.pressex i.allscandals i.pressex##i.allscandals presideology honeymoon gdpgrowth unemp inflationperchange l4net i.countrynumber 

*Model 6 
xtpcse net i.pressex i.allscandals i.pressex##i.allscandals presideology honeymoon gdpgrowth unemp inflationperchange i.countryperiod i.countrynumber

*Model 7 
xtpcse net i.pressex c.execorr i.pressex##c.execorr presideology honeymoon gdpgrowth unemp inflationperchange l4net i.countrynumber

*Model 8 
xtpcse net i.pressex c.execorr i.pressex##c.execorr presideology honeymoon gdpgrowth unemp inflationperchange i.countryperiod i.countrynumber

*Figure 1
xtpcse net i.pressex i.allscandals i.pressex##i.allscandals presideology honeymoon gdpgrowth unemp inflationperchange l4net i.countrynumber 
margins i.pressex, at(allscandals=(0(1)1))
marginsplot, xdimension(allscandals) plotdimension(pressex) recast(dropline) plotopts(lpattern(blank)) xscale(range(-1 2))


*Figure 2
xtpcse net i.pressex c.execorr i.pressex##c.execorr presideology honeymoon gdpgrowth unemp inflationperchange l4net i.countrynumber
margins i.pressex, at(execorr=(2(1)55))
marginsplot, xdimension(execorr) plotdimension(pressex)