data(simData)
theta <- c(beta0=1,beta1=2)
model1 <- momentModel(y~x1, ~z1+z2, data=simData)
## Identity weights object
wObj1 <- evalWeights(model1, w="ident")
## Identity weights object (an alternative way less efficient)
wObj1 <- evalWeights(model1, w=diag(3))
## Optimal weights
wObj1 <- evalWeights(model1, theta, w="optimal")
Run the code above in your browser using DataLab