data(etrait)
x<- as.matrix(3/2-mdat)
y<- as.matrix(traits)[,1:3]
v<- list()
upper<- list()
for(k in 1:ncol(y)){
v[[k]]<- numeric(0)
upper[[k]]<- 1:ncol(x)
}
g<- sureStep(y, x, v=v, upper=upper, k=19, direction="both",
iter=250, max.terms=250, steps=2000, tol=1e-6)
ge<- sureEst(y, x, v=g$v, iter=250, tol=1e-8)Run the code above in your browser using DataLab