Wooldridge Source: L.E. Papke (2005), “The Effects of Spending on Test Pass Rates: Evidence from Michigan,” Journal of Public Economics 89, 821-839. Data loads lazily.
data('school93_98')
A data.frame with 10668 observations on 18 variables:
distid:
schid:
lunch: percent eligible for free lunch
enrol: number of students
exppp: exp per pupil
math4:
year: 1993 = school year 1992-1993
y93:
y94:
y95:
y96:
y97:
y98:
rexpp: (exppp/cpi)1.605: 1997 $
found:
lenrol: log(enrol)
lrexpp: log(rexpp)
lavgrexpp: log((rexpp + L.rexpp)/2)
http://www.cengage.com/c/introductory-econometrics-a-modern-approach-7e-wooldridge
This is closer to the data actually used in the Papke paper as it is at the school (building) level. It is unbalanced because data on scores and some of the spending and other variables is missing for some schools. While the usual RE and FE methods can be applied directly, obtaining the correlated random effects version of the Hausman test is more advance. Computer Exercise 17 in Chapter 14 walks the reader through it.
Used in Text: page 491
#> 'data.frame': 10668 obs. of 18 variables: #> $ distid : num 34010 34010 34010 34010 34010 ... #> $ schid : int 1 1 1 1 1 1 2 2 2 2 ... #> $ lunch : num 39.8 35 36.6 40.5 49.5 ... #> $ enrol : int 256 248 244 247 291 274 482 486 489 503 ... #> $ exppp : int 2506 2870 4176 4333 3666 3825 2434 2775 3250 3705 ... #> $ math4 : num 46.6 44.7 86.5 84.3 83.8 ... #> $ year : int 1993 1994 1995 1996 1997 1998 1993 1994 1995 1996 ... #> $ y93 : int 1 0 0 0 0 0 1 0 0 0 ... #> $ y94 : int 0 1 0 0 0 0 0 1 0 0 ... #> $ y95 : int 0 0 1 0 0 0 0 0 1 0 ... #> $ y96 : int 0 0 0 1 0 0 0 0 0 1 ... #> $ y97 : int 0 0 0 0 1 0 0 0 0 0 ... #> $ y98 : int 0 0 0 0 0 1 0 0 0 0 ... #> $ rexpp : num 2783 3108 4398 4432 3666 ... #> $ found : int NA NA 4478 4754 5032 5305 NA NA 4865 5099 ... #> $ lenrol : num 5.55 5.51 5.5 5.51 5.67 ... #> $ lrexpp : num 7.93 8.04 8.39 8.4 8.21 ... #> $ lavgrexpp: num NA 7.99 8.23 8.39 8.31 ... #> - attr(*, "time.stamp")= chr " 4 May 2016 06:45" #> - attr(*, "label.table")= list() #> - attr(*, "expansion.fields")=List of 6 #> ..$ : chr [1:3] "_dta" "iis" "schid" #> ..$ : chr [1:3] "_dta" "tis" "year" #> ..$ : chr [1:3] "_dta" "_TSitrvl" "1" #> ..$ : chr [1:3] "_dta" "_TSdelta" "+1.0000000000000X+000" #> ..$ : chr [1:3] "_dta" "_TSpanel" "schid" #> ..$ : chr [1:3] "_dta" "_TStvar" "year" #> - attr(*, "byteorder")= chr "LSF" #> - attr(*, "orig.dim")= int [1:2] 10668 18