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.
str(jtrain)
#> '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"