data("EmplUK", package = "plm")
ar <- pgmm(dynformula(log(emp) ~ log(wage) + log(capital) +
log(output), list(2,1,2,2)), data = 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