# NOT RUN {
data(airmay)
summary(lm.airmay <- lm(Y ~ ., data=airmay))
# }
# NOT RUN {
<!-- %%summary(lts.airmay <- ltsReg(Y ~ ., data=airmay)) -->
# }
# NOT RUN {
airmay.x <- data.matrix(airmay[,1:3])
# }
# NOT RUN {
<!-- %%covMcd(airmay.x) -->
# }
Run the code above in your browser using DataLab