There is a very small data set ‘mileage.csv’ on Sakai that shows car mileage versus car speed for a random sample of vehicles. Load the data set, conduct some exploratory analysis, obtain a least squares line for the data and check some associated diagnostics.
cars <- read.csv("mileage.csv", header=TRUE)
cars## case mpg spd
## 1 1 22 35
## 2 2 20 35
## 3 3 28 40
## 4 4 31 40
## 5 5 37 45
## 6 6 38 45
## 7 7 41 50
## 8 8 39 50
## 9 9 34 55
## 10 10 37 55
## 11 11 27 60
## 12 12 30 60
## Try quadratic model (we will do this in class)