data(simData)
theta <- c(beta0=1,beta1=2)
model1 <- momentModel(y~x1, ~z1+z2, data=simData, vcov="iid")
momentStrength(model1)
## changing the type of vcov to get robust tests
momentStrength(update(model1, vcov="MDS"))
Run the code above in your browser using DataLab