lmRobMM
weights.lmRobMM(x)
"lmRobMM"
stack.df <- data.frame(Loss=stack.loss,stack.x) stack.robust <- lmRobMM(Loss~Air.Flow+Water.Temp+Acid.Conc.,data=stack.df) weights.lmRobMM(stack.robust)