cement

Source: R/cement.R

Wooldridge Source: J. Shea (1993), “The Input-Output Approach to Instrument Selection,” Journal of Business and Economic Statistics 11, 145-156. Professor Shea kindly provided these data. Data loads lazily.

data('cement')

Format

A data.frame with 312 observations on 30 variables:

  • year: 1964-1989

  • month: 1-12

  • prccem: BLS ppi for cement

  • ipcem: industrial prod. index, cement

  • prcpet: ppi for crude petroleum

  • rresc: real residential construction

  • rnonc: real nonres. construction

  • ip: aggregate index of indus. prod.

  • rdefs: real defense spending

  • milemp: military employment

  • gprc: log(prccem) - log(prccem[_n-1])

  • gcem: log(ipcem) - log(ipcem[_n-1])

  • gprcpet: log(prcpet) - log(prcpet[_n-1])

  • gres: log(rresc) - log(rresc[_n-1])

  • gnon: log(rnonc) - log(rnonc[_n-1])

  • gip: log(ip) - log(ip[_n-1])

  • gdefs: log(rdefs) - log(rdefs[_n-1])

  • gmilemp: log(milemp) - log(milemp[_n-1])

  • jan: =1 if month == 1

  • feb: =1 if month == 2

  • mar: =1 if month == 3

  • apr: =1 if month == 4

  • may: =1 if month == 5

  • jun: =1 if month == 6

  • jul: =1 if month == 7

  • aug: =1 if month == 8

  • sep: =1 if month == 9

  • oct: =1 if month == 10

  • nov: =1 if month == 11

  • dec: =1 if month == 12

Notes

Compared with Shea’s analysis, the producer price index (PPI) for fuels and power has been replaced with the PPI for petroleum. The data are monthly and have not been seasonally adjusted.

Used in Text: pages 579

Examples

 str(cement)
#> 'data.frame':	312 obs. of  30 variables:
#>  $ year   : int  1964 1964 1964 1964 1964 1964 1964 1964 1964 1964 ...
#>  $ month  : int  1 2 3 4 5 6 7 8 9 10 ...
#>  $ prccem : int  NA NA NA NA NA NA NA NA NA NA ...
#>  $ ipcem  : num  0.474 0.531 0.643 0.826 1.027 ...
#>  $ prcpet : num  13.4 13.4 13.4 13.4 13.4 ...
#>  $ rresc  : num  115401 115118 123663 116178 111034 ...
#>  $ rnonc  : num  142180 144190 145577 150793 149259 ...
#>  $ ip     : num  44.6 45.9 46.2 46.9 47.1 ...
#>  $ rdefs  : num  NA 1.66 1.66 1.66 1.66 ...
#>  $ milemp : int  2687 2696 2693 2694 2690 2687 2696 2693 2690 2680 ...
#>  $ gprc   : num  NA NA NA NA NA NA NA NA NA NA ...
#>  $ gcem   : num  NA 0.113 0.19 0.251 0.218 ...
#>  $ gprcpet: num  NA 0 0 0 0 0 0 0 0 0 ...
#>  $ gres   : num  NA -0.00246 0.0716 -0.06244 -0.04529 ...
#>  $ gnon   : num  NA 0.01404 0.00957 0.0352 -0.01022 ...
#>  $ gip    : num  NA 0.02873 0.00651 0.01504 0.00426 ...
#>  $ gdefs  : num  NA NA -0.000481 0 -0.000963 ...
#>  $ gmilemp: num  NA 0.003344 -0.001113 0.000371 -0.001486 ...
#>  $ jan    : int  1 0 0 0 0 0 0 0 0 0 ...
#>  $ feb    : int  0 1 0 0 0 0 0 0 0 0 ...
#>  $ mar    : int  0 0 1 0 0 0 0 0 0 0 ...
#>  $ apr    : int  0 0 0 1 0 0 0 0 0 0 ...
#>  $ may    : int  0 0 0 0 1 0 0 0 0 0 ...
#>  $ jun    : int  0 0 0 0 0 1 0 0 0 0 ...
#>  $ jul    : int  0 0 0 0 0 0 1 0 0 0 ...
#>  $ aug    : int  0 0 0 0 0 0 0 1 0 0 ...
#>  $ sep    : int  0 0 0 0 0 0 0 0 1 0 ...
#>  $ oct    : int  0 0 0 0 0 0 0 0 0 1 ...
#>  $ nov    : int  0 0 0 0 0 0 0 0 0 0 ...
#>  $ dec    : int  0 0 0 0 0 0 0 0 0 0 ...
#>  - attr(*, "time.stamp")= chr "25 Jun 2011 23:03"