Wooldridge Source: H. Holzer, R. Block, M. Cheatham, and J. Knott (1993), “Are Training Subsidies Effective? The Michigan Experience,” Industrial and Labor Relations Review 46, 625-636. The authors kindly provided the data. Data loads lazily.
data('jtrain')
A data.frame with 471 observations on 30 variables:
year: 1987, 1988, or 1989
fcode: firm code number
employ: # employees at plant
sales: annual sales, $
avgsal: average employee salary
scrap: scrap rate (per 100 items)
rework: rework rate (per 100 items)
tothrs: total hours training
union: =1 if unionized
grant: = 1 if received grant
d89: = 1 if year = 1989
d88: = 1 if year = 1988
totrain: total employees trained
hrsemp: tothrs/totrain
lscrap: log(scrap)
lemploy: log(employ)
lsales: log(sales)
lrework: log(rework)
lhrsemp: log(1 + hrsemp)
lscrap_1: lagged lscrap; missing 1987
grant_1: lagged grant; assumed 0 in 1987
clscrap: lscrap - lscrap_1; year > 1987
cgrant: grant - grant_1
clemploy: lemploy - lemploy[_n-1]
clsales: lavgsal - lavgsal[_n-1]
lavgsal: log(avgsal)
clavgsal: lavgsal - lavgsal[_n-1]
cgrant_1: cgrant[_n-1]
chrsemp: hrsemp - hrsemp[_n-1]
clhrsemp: lhrsemp - lhrsemp[_n-1]
https://www.cengage.com/cgi-wadsworth/course_products_wp.pl?fid=M20b&product_isbn_issn=9781111531041
pages 137, 161, 233, 254, 339, 465-466, 479, 486-487, 492, 504, 541-542, 774-775, 786-787, 788, 819.
#> 'data.frame': 471 obs. of 30 variables: #> $ year : int 1987 1988 1989 1987 1988 1989 1987 1988 1989 1987 ... #> $ fcode : num 410032 410032 410032 410440 410440 ... #> $ employ : int 100 131 123 12 13 14 20 25 24 200 ... #> $ sales : num 47000000 43000000 49000000 1560000 1970000 ... #> $ avgsal : num 35000 37000 39000 10500 11000 ... #> $ scrap : num NA NA NA NA NA NA NA NA NA NA ... #> $ rework : num NA NA NA NA NA NA NA NA NA NA ... #> $ tothrs : int 12 8 8 12 12 10 50 50 50 0 ... #> $ union : int 0 0 0 0 0 0 0 0 0 0 ... #> $ grant : int 0 0 0 0 0 0 0 0 0 0 ... #> $ d89 : int 0 0 1 0 0 1 0 0 1 0 ... #> $ d88 : int 0 1 0 0 1 0 0 1 0 0 ... #> $ totrain : int 100 50 50 12 13 14 15 10 20 0 ... #> $ hrsemp : num 12 3.05 3.25 12 12 ... #> $ lscrap : num NA NA NA NA NA NA NA NA NA NA ... #> $ lemploy : num 4.61 4.88 4.81 2.48 2.56 ... #> $ lsales : num 17.7 17.6 17.7 14.3 14.5 ... #> $ lrework : num NA NA NA NA NA NA NA NA NA NA ... #> $ lhrsemp : num 2.56 1.4 1.45 2.56 2.56 ... #> $ lscrap_1: num NA NA NA NA NA NA NA NA NA NA ... #> $ grant_1 : int 0 0 0 0 0 0 0 0 0 0 ... #> $ clscrap : num NA NA NA NA NA NA NA NA NA NA ... #> $ cgrant : int 0 0 0 0 0 0 0 0 0 0 ... #> $ clemploy: num NA 0.27 -0.063 NA 0.08 ... #> $ clsales : num NA -0.0889 0.1306 NA 0.2333 ... #> $ lavgsal : num 10.46 10.52 10.57 9.26 9.31 ... #> $ clavgsal: num NA 0.0556 0.0526 NA 0.0465 ... #> $ cgrant_1: int NA 0 0 NA 0 0 NA 0 0 NA ... #> $ chrsemp : num NA -8.947 0.199 NA 0 ... #> $ clhrsemp: num NA -1.1654 0.0478 NA 0 ... #> - attr(*, "time.stamp")= chr "25 Jun 2011 23:03"