data(EmplUK)
pdata.frame(EmplUK,"firm","year")
ar <- pgmm(dynformula(log(emp)~log(wage)+log(capital)+log(output),list(2,1,2,2)),EmplUK,
effect="twoways",model="twosteps",
gmm.inst=~log(emp),lag.gmm=list(c(2,99)))
sargan(ar)
Run the code above in your browser using DataLab