library(kableExtra)
cars <- read.csv("cars.txt", stringsAsFactors = FALSE)
cars$time.to.60.minutes <- cars$time.to.60/60
cars <- cars [,c(-1,-7,-8,-4)]
cars[8,3] <- "4312"
cars$weightlbs <-as.numeric(cars$weightlbs)
max <- max(cars$weightlbs)
min <- min(cars$weightlbs)
cars$weightlbs.min.max <- (cars$weightlbs- min)/(max-min)
final.cars <- head(cars,10)
final.cars %>% kable() %>% kable_styling()
|
cylinders
|
cubicinches
|
weightlbs
|
time.to.60
|
time.to.60.minutes
|
weightlbs.min.max
|
|
8
|
350
|
4209
|
12
|
0.2000000
|
0.7671395
|
|
4
|
89
|
1925
|
14
|
0.2333333
|
0.0921986
|
|
8
|
302
|
3449
|
11
|
0.1833333
|
0.5425532
|
|
8
|
400
|
3761
|
10
|
0.1666667
|
0.6347518
|
|
4
|
98
|
2051
|
17
|
0.2833333
|
0.1294326
|
|
8
|
350
|
3900
|
17
|
0.2833333
|
0.6758274
|
|
8
|
351
|
4363
|
13
|
0.2166667
|
0.8126478
|
|
8
|
440
|
4312
|
9
|
0.1500000
|
0.7975768
|
|
5
|
183
|
3530
|
20
|
0.3333333
|
0.5664894
|
|
4
|
89
|
2050
|
17
|
0.2833333
|
0.1291371
|