data(NOxEmissions)
plot(LNOx ~ LNOxEm, data = NOxEmissions, cex = 0.25, col = "gray30")
if (FALSE) ## these take too much time --
## p = 340 ==> already Least Squares is not fast
(lmNOx <- lm(LNOx ~ . ,data = NOxEmissions))
plot(lmNOx) #-> indication of 1 outlier
M.NOx <- MASS::rlm(LNOx ~ . , data = NOxEmissions)
## M-estimation works
## whereas MM-estimation fails:
try(MM.NOx <- MASS::rlm(LNOx ~ . , data = NOxEmissions, method = "MM"))
## namely because S-estimation fails:
try(lts.NOx <- ltsReg(LNOx ~ . , data = NOxEmissions))
try(lmR.NOx <- lmrob (LNOx ~ . , data = NOxEmissions))
Run the code above in your browser using DataLab