# NOT RUN {
library(plm)
data(Produc)
use(Produc, clear=TRUE)
xtset("year", "state")
gen("Lemp", "lag(emp)")
listif(vars="emp Lemp")
reg("emp", "unemp", effect="twoway")
reg("emp", "unemp", effect="individual")
reg("emp", "unemp", effect="time")
# }
Run the code above in your browser using DataLab