cars_data<-read.csv("cars_data.csv")
mean(cars_data$mpg)
## [1] 20.09062