rsquared.lmRobMM(x)
"lmRobMM"
.
If the corresponding coefficient estimates are the initial S-estimates, the R-squared is computed using the initial S-estimates; otherwise, it is computed using the final M-estimates.
stack.df <- data.frame(Loss=stack.loss,stack.x) stack.robust <- lmRobMM(Loss~Air.Flow+Water.Temp+Acid.Conc.,data=stack.df) rsquared.lmRobMM(stack.robust)