Caye Castillo PAD 6833 HW 2

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

# Below I am identifying the average mpg for all cars.

mean(cars_data$mpg)

## [1] 20.09062

# Below I am identifying the minimum mpg for all cars.

min(cars_data$mpg)

## [1] 10.4

# Below I am identifying the maximum mpg for all cars. 

max(cars_data$mpg)

## [1] 33.9

# Below I am identifying the total amount of cars included in the dataset. 

length(cars_data$X)

## [1] 32