data("EmplUK", package = "plm")
## Arellano and Bond (1991), table 4 col. b
z1 <- pgmm(log(emp) ~ lag(log(emp), 1:2) + lag(log(wage), 0:1)
+ log(capital) + lag(log(output), 0:1) | lag(log(emp), 2:99),
data = EmplUK, effect = "twoways", model = "twosteps")
summary(z1)
## Blundell and Bond (1998) table 4 (cf. DPD for OX p. 12 col. 4)
z2 <- pgmm(log(emp) ~ lag(log(emp), 1)+ lag(log(wage), 0:1) +
lag(log(capital), 0:1) | lag(log(emp), 2:99) +
lag(log(wage), 2:99) + lag(log(capital), 2:99),
data = EmplUK, effect = "twoways", model = "onestep",
transformation = "ld")
summary(z2, robust = TRUE)
## Not run:
# ## Same with the old formula or dynformula interface
# ## Arellano and Bond (1991), table 4, col. b
# z1 <- pgmm(log(emp) ~ log(wage) + log(capital) + log(output),
# lag.form = list(2,1,0,1), data = EmplUK,
# effect = "twoways", model = "twosteps",
# gmm.inst = ~log(emp), lag.gmm = list(c(2,99)))
# summary(z1)
#
# ## Blundell and Bond (1998) table 4 (cf DPD for OX p. 12 col. 4)
# z2 <- pgmm(dynformula(log(emp) ~ log(wage) + log(capital), list(1,1,1)),
# data = EmplUK, effect = "twoways", model = "onestep",
# gmm.inst = ~log(emp) + log(wage) + log(capital),
# lag.gmm = c(2,99), transformation = "ld")
# summary(z2, robust = TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab