if(requireNamespace("survival")) {
data("tobin", package="survival")
Tobit(tobin$durable)
(t.r <- survival::survreg(Tobit(durable) ~ age + quant,
data = tobin, dist="gaussian"))
if(interactive())
plregr(t.r)
}
Run the code above in your browser using DataLab