GrunfeldGreene {systemfit} | R Documentation |
Panel data on 5 US firms for the years 1935-1954.
data("GrunfeldGreene")
A data frame containing 20 annual observations on 3 variables for 5 firms.
There exist several different versions of this data set, and this version is considered incorrect (see http://www.stanford.edu/~clint/bench/grunfeld.htm for details). However, we provide this incorrect version to replicated the results published in Greene (2003).
Greene (2003), Appendix F, Data Sets Used in Applications, Table F13.1.
http://pages.stern.nyu.edu/~wgreene/Text/econometricanalysis.htm
Greene, W.H. (2003). Econometric Analysis, 5th edition. Prentice Hall, Upper Saddle River (NJ).
Grunfeld, Y. (1958). The Determinants of Corporate Investment, Unpublished Ph.D. Dissertation, University of Chicago.
## Repeating the OLS and SUR estimations in Greene (2003, pp. 351) data( "GrunfeldGreene" ) formulaGrunfeld <- invest ~ value + capital # OLS greeneOls <- systemfitClassic( "OLS", formulaGrunfeld, "firm", "year", data = GrunfeldGreene ) summary( greeneOls ) sapply( greeneOls$eq, function(x){return(x$ssr/20)} ) # sigma^2 # OLS Pooled greeneOlsPooled <- systemfitClassic( "OLS", formulaGrunfeld, "firm", "year", data = GrunfeldGreene, pooled = TRUE ) summary( greeneOlsPooled ) sum( sapply( greeneOlsPooled$eq, function(x){return(x$ssr)}) )/97 # sigma^2 # SUR greeneSur <- systemfitClassic( "SUR", formulaGrunfeld, "firm", "year", data = GrunfeldGreene, rcovformula = 0 ) summary( greeneSur ) # SUR Pooled greeneSurPooled <- systemfitClassic( "WSUR", formulaGrunfeld, "firm", "year", data = GrunfeldGreene, pooled = TRUE, rcovformula = 0 ) summary( greeneSurPooled )