Wooldridge Source: Harbridge, L., J. Krosnick, and J.M. Wooldridge (forthcoming), “Presidential Approval and Gas Prices: Sociotropic or Pocketbook Influence?” in New Explorations in Political Psychology, ed. J. Krosnick. New York: Psychology Press (Taylor and Francis Group). Professor Harbridge kindly provided the data, of which I have used a subset. Data loads lazily.
data('approval')A data.frame with 78 observations on 16 variables:
id: id
month: month
year: year
sp500: S&P 500 index
cpi: Consumer Price Index
cpifood: CPI for food
approve: Gallup approval rate, percent
gasprice: average gas price, cents
unemploy: unemployment rate, percent
katrina: =1 for three months after Hurricane Katrina
rgasprice: real gas price, 100*(gasprice/cpi)
lrgasprice: log(rgasprice)
sep11: =1 for 09/2001 and two months following
iraqinvade: =1 for three months after Iraq invasion
lsp500: log(sp500)
lcpifood: log(cpifood)
343, 371, 400
str(approval)
#> 'data.frame': 78 obs. of 16 variables:
#> $ id : int 302 303 304 305 306 307 308 309 310 311 ...
#> $ month : int 2 3 4 5 6 7 8 9 10 11 ...
#> $ year : int 2001 2001 2001 2001 2001 2001 2001 2001 2001 2001 ...
#> $ sp500 : num 1240 1160 1249 1256 1224 ...
#> $ cpi : num 184 185 186 186 186 ...
#> $ cpifood : num 172 172 172 173 173 ...
#> $ approve : num 59.2 57 60.3 55.8 54.9 ...
#> $ gasprice : num 148 145 156 173 164 ...
#> $ unemploy : num 4.6 4.5 4.2 4.1 4.7 4.7 4.9 4.7 5 5.3 ...
#> $ katrina : int 0 0 0 0 0 0 0 0 0 0 ...
#> $ rgasprice : num 80.5 78.1 84.3 93.2 88.2 ...
#> $ lrgasprice: num 4.39 4.36 4.43 4.53 4.48 ...
#> $ X11.Sep : int 0 0 0 0 0 0 0 1 1 1 ...
#> $ iraqinvade: int 0 0 0 0 0 0 0 0 0 0 ...
#> $ lsp500 : num 7.12 7.06 7.13 7.14 7.11 ...
#> $ lcpifood : num 5.15 5.15 5.15 5.15 5.16 ...