计算95％的置信度和预测间隔

Question

enter image description here我根据正在运行的数据生成了以下信息，但无法弄清楚如何计算95％的置信度和预测间隔。有人可以告诉我至少要计算每个公式的公式吗？

数据：

predict(confmodel,newdata)
        1         2         3 
-6.000301 17.518069 37.676672 

predict(confmodel,newdata,interval = "confidence")
        fit       lwr       upr
1 -6.000301 -8.226596 -3.774006
2 17.518069 16.916434 18.119704
3 37.676672 35.980615 39.372728
> predict(confmodel,newdata,interval = "predict")
        fit        lwr       upr
1 -6.000301 -15.554479  3.553876
2 17.518069   8.207436 26.828702
3 37.676672  28.231963 47.121381

*我还提供了指向数据图片的链接，因为它没有在帖子中对齐。