mod1 <- lmrob(stack.loss ~ ., data = stackloss)
sa <- summary(mod1) # calls summary.lmrob(....)
sa # dispatches to call print.summary.lmrob(....)
## correlation between estimated coefficients:
cov2cor(vcov(mod1))
cbind(fit = fitted(mod1), resid = residuals(mod1),
wgts= weights(mod1),
predict(mod1, interval="prediction"))
data(heart)
sm2 <- summary( m2 <- lmrob(clength ~ ., data = heart) )
sm2
Run the code above in your browser using DataLab