Run »
Data_Cars <- mtcars which.max(Data_Cars$hp) which.min(Data_Cars$hp)
[1] 31
[1] 19