# NOT RUN {
SSplot(
lm(strength ~ limestone + water, data = Concrete),
lm(strength ~ limestone + rand(7), data = Concrete),
n = 50)
# }
# NOT RUN {
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