data(simData)
theta <- c(beta0=1,beta1=2)
model1 <- momentModel(y~x1, ~z1+z2, data=simData)
res <- gmmFit(model1)
m <- meatGmm(res)
b <- bread(res)
## Sandwich vcov
b
## TSLS
model2 <- momentModel(y~x1, ~z1+z2, data=simData, vcov="iid")
res <- tsls(model2)
bread(res)
Run the code above in your browser using DataLab