Reelection {pder}

Deficits and Reelection

Description

yearly observations of 75 countries from 1960 to 2003

number of observations : 439

number of time-series : 16

country : world

package : panelbinomial

JEL codes: D72, E62, H62, O47

Chapter : 08

Usage

data(Reelection)

Format

A dataframe containing:

country

the country

year

the year

narrow

TRUE if the observation belongs to the narrow data set

reelect

one if the incumbent was reelected and zero otherwise

ddefterm

the change in the ratio of the government surplus to gdp in the two years preeceding the election year, relative to the two previous years

ddefey

the change in the government surplus ratio to gdpin the election year, compared to the previous year

gdppc

the average growth rate of real per capita gdp during the leader's current term

dev

one for developped countries, 0 otherwise

nd

one for a new democratic country, 0 otherwise

maj

one for majoritarian electoral system, 0 otherwise

Source

American Economic Association Data Archive : https://www.aeaweb.org/aer/

References

Adi Brender and Allan Drazen (2008) “How Do Budget Deficits and Economic Growth Affect Reelection Prospects? Evidence From a Large Panel of Countries”, American Economic Review, 98(5), 2203-2220, doi: 10.1257/aer.98.5.2203 .

Examples

#### Example 8-1

## ------------------------------------------------------------------------
## Not run: 
library("plm")
data("Reelection", package = "pder")

## ------------------------------------------------------------------------
elect.l <- glm(reelect ~ ddefterm + ddefey + gdppc + dev + nd + maj, 
          data = Reelection, family = "binomial", subset = narrow)
l2 <- update(elect.l, family = binomial)
l3 <- update(elect.l, family = binomial())
l4 <- update(elect.l, family = binomial(link = 'logit'))

## ------------------------------------------------------------------------
elect.p <- update(elect.l, family = binomial(link = 'probit'))

## ------------------------------------------------------------------------

if (requireNamespace("pglm")){
    library("pglm")
    elect.pl <- pglm(reelect ~ ddefterm + ddefey + gdppc + dev + nd + maj, 
                 Reelection, family = binomial(link = 'logit'), 
                subset = narrow)
    elect.pp <- pglm(reelect ~ ddefterm + ddefey + gdppc + dev + nd + maj, 
                 Reelection, family = binomial(link = 'probit'), 
                subset = narrow)
}

## End(Not run)