Call: 1m (formula = score ~ minutes los, data = Cellb) Residuals: Min 1Q Median -26.5236 -6.0120 -0.8028 5.8238 3Q Max 29.3942 Estimate Std. Error t value Pr(>|t|) Coefficients: (Intercept) 27.56922 minutes 0.14725 los -3.70476 Signif. codes: 4.56905 6.034 1.37e-08 *** 0.01945 1.52079 7.569 4.71e-12 *** -2.436 0.0161 * " 0 ***** 0.001 **** 0.01 *** 0.05 '.' 0.1' 1 Residual standard error: 9.852 on 139 degrees of freedom Multiple R-squared: 0.2934, Adjusted R-squared: 0.2832 F-statistic: 28.85 on 2 and 139 DF, p-value: 3.301e-11 = (los 2, minutes = 125) > predict(finalCellreg, 13, interval="confid") fit 1wr upr 1 38.566 35.85858 41.27342 > predict(final cellreg, 13, interval="predict") fit lwr upr 1 38.566 18.89943 58.23257