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