В пакете выживания есть основа как для регрессии тобита, так и для переменных с интервалом. Это пример Терно с использованием исходных данных Тобина:
tfit <- survreg(Surv(durable, durable>0, type='left') ~age + quant,
data=tobin, dist='gaussian')
predict(tfit,type="response")
И функция Surv
примет интервальную цензуру.