library(AER)
model1 = tobit(Age ~ Height + Pulse, right = 65, data=MASS::survey)
summary(model1)
# comparing a person with the height 150cm to 151cm
dc(model1, values1 = c(1,160,80),
values2 = c(1,170,80))
# the difference is not significant, because the confidence interval
# includes the 0
Run the code above in your browser using DataLab