# NOT RUN {
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 )
# }
Run the code above in your browser using DataLab