cars_data<-read.csv("cars_data.csv")
#number of cars in the set
length(cars_data$mpg)
## [1] 32
#mean mpg for all cars
mean(cars_data$mpg)
## [1] 20.09062
#max mpg for all cars
max(cars_data$mpg)
## [1] 33.9
#min mpg for all cars
min(cars_data$mpg)
## [1] 10.4

```