Time demand
1    1    8.3
2    2   10.3
3    3   19.0
4    4   16.0
5    5   15.6
6    7   19.8

Call:
lm(formula = demand ~ Time, data = BOD)

Coefficients:
(Intercept)         Time  
      8.521        1.721  


Call:
lm(formula = demand ~ Time, data = BOD)

Residuals:
      1       2       3       4       5       6 
-1.9429 -1.6643  5.3143  0.5929 -1.5286 -0.7714 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)  
(Intercept)   8.5214     2.6589   3.205   0.0328 *
Time          1.7214     0.6387   2.695   0.0544 .
---
Signif. codes:  0 `***' 0.001 `**' 0.01 `*' 0.05 `.' 0.1 ` ' 1 

Residual standard error: 3.085 on 4 degrees of freedom
Multiple R-Squared: 0.6449,	Adjusted R-squared: 0.5562 
F-statistic: 7.265 on 1 and 4 DF,  p-value: 0.05435