problem-3.24

problem-3.24  We fit the model and then make the prediction as follows:
> res = lm(abdomen ~ wrist, data = fat)
> predict(res, data.frame(wrist=17))
[1] 83.75