W3School TIY Editor

Data_Cars <- mtcars max(Data_Cars$hp) min(Data_Cars$hp)