SSplot(
lm(strength ~ limestone + water, data = Concrete),
lm(strength ~ limestone + rand(7), data = Concrete),
n = 50)
if (FALSE) {
SSplot(
lm(strength ~ water + limestone, data = Concrete),
lm(strength ~ water + rand(7), data = Concrete),
n = 1000)
}
Run the code above in your browser using DataLab