For each of the data sets elastic1 and elastic2, simulate artificial data from the model that was fitted. (a) Thus, after fitting the elastic1 data using e1.lm (b) Investigate the use of the function...

For each of the data sets elastic1 and elastic2, simulate artificial data from the model that was fitted.

(a) Thus, after fitting the elastic1 data using e1.lm <->

(b) Investigate the use of the function simulate() as an alternative to using the above code.

(c) Now, regress newdistance against stretch and obtain side-by-side residual plots for the original data and the artificial data. Repeat this procedure several times. Does it seem that the outliers in the original residual plot are consistent with the fitted model? Apply the same procedure to the elastic2 data. [Technically, the methodology used here is that of a parametric bootstrap.]