CRUZANTHONYHomework2

wd<-getwd()
cars<-read.csv("cars_data.csv")

mean(cars $mpg)

## [1] 20.09062

min(cars$mpg)

## [1] 10.4

max(cars$mpg)

## [1] 33.9

length(cars$mpg)

## [1] 32