library(tibble)
wd<-getwd()
cars<-read.csv("cars_data.csv")
tibble(cars)
## # A tibble: 32 × 12
## X mpg cyl disp hp drat wt qsec vs am gear carb
## <chr> <dbl> <int> <dbl> <int> <dbl> <dbl> <dbl> <int> <int> <int> <int>
## 1 Mazda RX4 21 6 160 110 3.9 2.62 16.5 0 1 4 4
## 2 Mazda RX4 … 21 6 160 110 3.9 2.88 17.0 0 1 4 4
## 3 Datsun 710 22.8 4 108 93 3.85 2.32 18.6 1 1 4 1
## 4 Hornet 4 D… 21.4 6 258 110 3.08 3.22 19.4 1 0 3 1
## 5 Hornet Spo… 18.7 8 360 175 3.15 3.44 17.0 0 0 3 2
## 6 Valiant 18.1 6 225 105 2.76 3.46 20.2 1 0 3 1
## 7 Duster 360 14.3 8 360 245 3.21 3.57 15.8 0 0 3 4
## 8 Merc 240D 24.4 4 147. 62 3.69 3.19 20 1 0 4 2
## 9 Merc 230 22.8 4 141. 95 3.92 3.15 22.9 1 0 4 2
## 10 Merc 280 19.2 6 168. 123 3.92 3.44 18.3 1 0 4 4
## # ℹ 22 more rows
colnames(cars)
## [1] "X" "mpg" "cyl" "disp" "hp" "drat" "wt" "qsec" "vs" "am"
## [11] "gear" "carb"
#What is the average (mean()) mpg for all cars?
mean(cars$mpg)
## [1] 20.09062
#What is the minimum mpg for all cars?
min(cars$mpg)
## [1] 10.4
#What is the maximum mpg for all cars?
max(cars$mpg)
## [1] 33.9
#How many cars are there in the dataset?
length(cars$X)
## [1] 32