Last chance! 50% off unlimited learning
Sale ends in
data(rubber)
hardness
tensile.strength
abrasion.loss
ts.low
ts.high
data(rubber)
rmod <- lm(abrasion.loss~hardness+tensile.strength, data=rubber)
res <- resid(rmod)
hctest(rubber[,1], res)
Run the code above in your browser using DataLab