Stata script to replicate "Why is democracy declining in Latin America?"

do-file.do

* The main model
xtscc pressfree leftism presvrl leftismXpresvrl ief gdpcapita

* Effect of VRLpres at in-sample min, ave, and max, values of presidential leftism
lincom _b[presvrl] + _b[leftismXpresvrl]*1.5
lincom _b[presvrl] + _b[leftismXpresvrl]*7.194014
lincom _b[presvrl] + _b[leftismXpresvrl]*18

* Figure 1 data (the 'xtscc' add-on does not accept the # operator, so the 'margins'
* command could not be used to graph the interaction)
lincom _b[presvrl] + _b[leftismXpresvrl]*0
lincom _b[presvrl] + _b[leftismXpresvrl]*1
lincom _b[presvrl] + _b[leftismXpresvrl]*2
lincom _b[presvrl] + _b[leftismXpresvrl]*3
lincom _b[presvrl] + _b[leftismXpresvrl]*4
lincom _b[presvrl] + _b[leftismXpresvrl]*5
lincom _b[presvrl] + _b[leftismXpresvrl]*6
lincom _b[presvrl] + _b[leftismXpresvrl]*7
lincom _b[presvrl] + _b[leftismXpresvrl]*8
lincom _b[presvrl] + _b[leftismXpresvrl]*9
lincom _b[presvrl] + _b[leftismXpresvrl]*10
lincom _b[presvrl] + _b[leftismXpresvrl]*11
lincom _b[presvrl] + _b[leftismXpresvrl]*12
lincom _b[presvrl] + _b[leftismXpresvrl]*13
lincom _b[presvrl] + _b[leftismXpresvrl]*14
lincom _b[presvrl] + _b[leftismXpresvrl]*15
lincom _b[presvrl] + _b[leftismXpresvrl]*16
lincom _b[presvrl] + _b[leftismXpresvrl]*17
lincom _b[presvrl] + _b[leftismXpresvrl]*18
lincom _b[presvrl] + _b[leftismXpresvrl]*19
lincom _b[presvrl] + _b[leftismXpresvrl]*20

* Uruguay and Bolivia examples
lincom _b[presvrl] + _b[leftismXpresvrl]*5.53
lincom _b[presvrl] + _b[leftismXpresvrl]*14.76
lincom _b[presvrl] + _b[leftismXpresvrl]*5.31
lincom _b[presvrl] + _b[leftismXpresvrl]*16.12

* Disaggregating press freedom (and rechecking the interaction)
* legal subcomponent
xtscc legalfree leftism presvrl leftismXpresvrl ief gdpcapita
lincom _b[presvrl] + _b[leftismXpresvrl]*0
lincom _b[presvrl] + _b[leftismXpresvrl]*1
lincom _b[presvrl] + _b[leftismXpresvrl]*2
lincom _b[presvrl] + _b[leftismXpresvrl]*3
lincom _b[presvrl] + _b[leftismXpresvrl]*4
lincom _b[presvrl] + _b[leftismXpresvrl]*5
lincom _b[presvrl] + _b[leftismXpresvrl]*6
lincom _b[presvrl] + _b[leftismXpresvrl]*7
lincom _b[presvrl] + _b[leftismXpresvrl]*8
lincom _b[presvrl] + _b[leftismXpresvrl]*9
lincom _b[presvrl] + _b[leftismXpresvrl]*10
lincom _b[presvrl] + _b[leftismXpresvrl]*11
lincom _b[presvrl] + _b[leftismXpresvrl]*12
lincom _b[presvrl] + _b[leftismXpresvrl]*13
lincom _b[presvrl] + _b[leftismXpresvrl]*14
lincom _b[presvrl] + _b[leftismXpresvrl]*15
lincom _b[presvrl] + _b[leftismXpresvrl]*16
lincom _b[presvrl] + _b[leftismXpresvrl]*17
lincom _b[presvrl] + _b[leftismXpresvrl]*18
lincom _b[presvrl] + _b[leftismXpresvrl]*19
lincom _b[presvrl] + _b[leftismXpresvrl]*20
* political subcomponent
xtscc polfree leftism presvrl leftismXpresvrl ief gdpcapita
lincom _b[presvrl] + _b[leftismXpresvrl]*0
lincom _b[presvrl] + _b[leftismXpresvrl]*1
lincom _b[presvrl] + _b[leftismXpresvrl]*2
lincom _b[presvrl] + _b[leftismXpresvrl]*3
lincom _b[presvrl] + _b[leftismXpresvrl]*4
lincom _b[presvrl] + _b[leftismXpresvrl]*5
lincom _b[presvrl] + _b[leftismXpresvrl]*6
lincom _b[presvrl] + _b[leftismXpresvrl]*7
lincom _b[presvrl] + _b[leftismXpresvrl]*8
lincom _b[presvrl] + _b[leftismXpresvrl]*9
lincom _b[presvrl] + _b[leftismXpresvrl]*10
lincom _b[presvrl] + _b[leftismXpresvrl]*11
lincom _b[presvrl] + _b[leftismXpresvrl]*12
lincom _b[presvrl] + _b[leftismXpresvrl]*13
lincom _b[presvrl] + _b[leftismXpresvrl]*14
lincom _b[presvrl] + _b[leftismXpresvrl]*15
lincom _b[presvrl] + _b[leftismXpresvrl]*16
lincom _b[presvrl] + _b[leftismXpresvrl]*17
lincom _b[presvrl] + _b[leftismXpresvrl]*18
lincom _b[presvrl] + _b[leftismXpresvrl]*19
lincom _b[presvrl] + _b[leftismXpresvrl]*20
* economic subcomponent
xtscc econfree leftism presvrl leftismXpresvrl ief gdpcapita
lincom _b[presvrl] + _b[leftismXpresvrl]*0
lincom _b[presvrl] + _b[leftismXpresvrl]*1
lincom _b[presvrl] + _b[leftismXpresvrl]*2
lincom _b[presvrl] + _b[leftismXpresvrl]*3
lincom _b[presvrl] + _b[leftismXpresvrl]*4
lincom _b[presvrl] + _b[leftismXpresvrl]*5
lincom _b[presvrl] + _b[leftismXpresvrl]*6
lincom _b[presvrl] + _b[leftismXpresvrl]*7
lincom _b[presvrl] + _b[leftismXpresvrl]*8
lincom _b[presvrl] + _b[leftismXpresvrl]*9
lincom _b[presvrl] + _b[leftismXpresvrl]*10
lincom _b[presvrl] + _b[leftismXpresvrl]*11
lincom _b[presvrl] + _b[leftismXpresvrl]*12
lincom _b[presvrl] + _b[leftismXpresvrl]*13
lincom _b[presvrl] + _b[leftismXpresvrl]*14
lincom _b[presvrl] + _b[leftismXpresvrl]*15
lincom _b[presvrl] + _b[leftismXpresvrl]*16
lincom _b[presvrl] + _b[leftismXpresvrl]*17
lincom _b[presvrl] + _b[leftismXpresvrl]*18
lincom _b[presvrl] + _b[leftismXpresvrl]*19
lincom _b[presvrl] + _b[leftismXpresvrl]*20

* Disaggregating economic freedom (and rechecking the interaction)
xtscc pressfree leftism presvrl leftismXpresvrl business trade fiscal financial property investment gdpcapita
lincom _b[presvrl] + _b[leftismXpresvrl]*0
lincom _b[presvrl] + _b[leftismXpresvrl]*1
lincom _b[presvrl] + _b[leftismXpresvrl]*2
lincom _b[presvrl] + _b[leftismXpresvrl]*3
lincom _b[presvrl] + _b[leftismXpresvrl]*4
lincom _b[presvrl] + _b[leftismXpresvrl]*5
lincom _b[presvrl] + _b[leftismXpresvrl]*6
lincom _b[presvrl] + _b[leftismXpresvrl]*7
lincom _b[presvrl] + _b[leftismXpresvrl]*8
lincom _b[presvrl] + _b[leftismXpresvrl]*9
lincom _b[presvrl] + _b[leftismXpresvrl]*10
lincom _b[presvrl] + _b[leftismXpresvrl]*11
lincom _b[presvrl] + _b[leftismXpresvrl]*12
lincom _b[presvrl] + _b[leftismXpresvrl]*13
lincom _b[presvrl] + _b[leftismXpresvrl]*14
lincom _b[presvrl] + _b[leftismXpresvrl]*15
lincom _b[presvrl] + _b[leftismXpresvrl]*16
lincom _b[presvrl] + _b[leftismXpresvrl]*17
lincom _b[presvrl] + _b[leftismXpresvrl]*18
lincom _b[presvrl] + _b[leftismXpresvrl]*19
lincom _b[presvrl] + _b[leftismXpresvrl]*20