# NOT RUN {
data(mm, package = "hett")
attach(mm)
## fit a model with heteroscedasticity and estimating the degrees of freedom
tfit2 <- tlm(m.marietta ~ CRSP, ~ CRSP, data = mm, start = list(dof =
3), estDof = TRUE)
summary(tfit2)
# }
Run the code above in your browser using DataLab