data( "nlswork" )
summary( nlswork )
## Not run:
# 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 )
# ## End(Not run)
Run the code above in your browser using DataLab