#pacote AER fornece o comando tobit e o pacote censReg o comando censReg 
library(censReg)
#estimar Tobit
TobitRes<-censReg(hours~nwifeinc+educ+exper+I(exper^2)+age+kidslt6+kidsge6,data=MROZ)
summary(TobitRes)
#efeitos parciais na media dos x
margEff(TobitRes)
#tambem possivel estimar usando o comando survreg