Klaritza Vaca PAD 6833 Homework 2

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

#Practice Example 1
example <- cars_data$cyl
mean_cyl <- mean(example)

#Practice Example 2
example <- cars_data$hp
mean_hp <- mean(example)

#Practice Example 3
example <- cars_data$wt
mean_wt <- mean(example)

#Practice Example 4
example <- cars_data$gear
mean_gear <- mean(example)

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