data( "nlswork" )
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" )
Run the code above in your browser using DataLab