data( "nlswork" )
summary( nlswork )
if (FALSE) {
library( "plm" )
nlswork <- plm.data( nlswork, c( "idcode", "year" ) )
plmResult <- plm( ln_wage ~ union + age + grade + not_smsa + south + occ_code,
data = nlswork, model = "random" )
summary( plmResult )
}
Run the code above in your browser using DataLab