A chemist is interested in determining the weight loss of a particular compound as a function of the amount of time the compound is exposed to air.The data give the weight losses associated with twelve settings of the independent variable, exposure time. So .

Exposure Time, hours

4

5

6

7

4

5

6

7

4

5

6

7

Weight Loss, y, pounds

4.3

5.5

6.8

8.0

4.0

5.2

6.5

7.5

2.0

4.0

5.7

6.5

(c)Determine the 95% confidence intervals for when . Paste the R output for confidence intervals and interpret at least one of these confidence intervals.

> # Compute confidence intervals at specified values of Exposure Time

> new.expotime <- data.frame(ExposureTime=c(4,5,6,7))

> predict(model,newdata=new.expotime,interval="confidence")

fitlwrupr

1 3.533333 2.667937 4.398729

2 4.850000 4.283465 5.416535

3 6.166667 5.600132 6.733201

4 7.483333 6.617937 8.348729