set.seed(1)
n<-1000
k<-5
Sigma<-diag(k)
Sigma[Sigma==0]<-0.5
X<-mvrnorm(n,m=rep(0,k),S=Sigma)
y1.0<- -1+X[,2]*1 + X[,3]*(-1)+rnorm(n)
probs1<-dnorm(y1.0)
y1<-obs.zero<-rbinom(n,1,probs1)
y2<-exp(1+X[,1]*1 + X[,2]*(-2)+X[,4]*(-1)+rnorm(n))
y2[obs.zero==0]<-0
t1<-type2tobit(y1=y1,X1=X,y2=log(1+y2),X2=X,stage2=rep(0,n),
one.constraint=TRUE)
plot(t1, stage=1)
plot(t1, stage=2)
Run the code above in your browser using DataLab