## uniform observable covariates (note that exclusion restriction is
## fulfilled)!
myData <- data.frame( z = runif(500), x = runif(500) )
## latent selection variable
myData$y1s <- 2 * myData$z + rnorm(500)
myData$y1 <- myData$y1s > 0
## latent regressions
myData$y2s <- myData$x + 0.5 * rnorm(500)
myData$y2 <- ifelse( myData$y1 == 1, myData$y2s, 0)
plot( myData$z, myData$y2 )
a <- tobit2( y1~z, y2~x, data = myData )
summary(a)
Run the code above in your browser using DataLab