Including Plots

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   80.23   87.22  105.43  100.08  109.81  120.85

## 
## Call:
## lm(formula = Traffic$`Time Leave` ~ Traffic$`Time Arrive`, data = Traffic)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.06697 -0.05548 -0.04098 -0.02395  0.38912 
## 
## Coefficients:
##                       Estimate Std. Error t value Pr(>|t|)   
## (Intercept)             2.7247     1.2241   2.226  0.04595 * 
## Traffic$`Time Arrive`   0.5995     0.1523   3.938  0.00197 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1249 on 12 degrees of freedom
## Multiple R-squared:  0.5637, Adjusted R-squared:  0.5274 
## F-statistic:  15.5 on 1 and 12 DF,  p-value: 0.001971

## [1] 6
## [1] 17