Homework

cars_data<-read.csv("cars_data.csv")

mean(cars_data$mpg)

## [1] 20.09062

min(cars_data$mpg)

## [1] 10.4

max(cars_data$mpg)

## [1] 33.9

length(cars_data$mpg)

## [1] 32