data(LabourCR)
## Table 8.1 of Greene (2012)
## Model with Z2 (iid is assumed in Table 8.1 given the s.e.)
model2 <- momentModel(WKS~LWAGE+ED+UNION+FEM, ~IND+ED+UNION+FEM+SMSA, vcov="iid",
data=LabourCR)
## Model with Z1 using the subsetting method '['
model1 <- model2[-6L]
# Second column
res1 <- tsls(model1)
summary(res1)@coef
# Third column
res2 <- tsls(model2)
summary(res2)@coef
Run the code above in your browser using DataLab