The dataset below contains data from an experiment which
measured the braking distance at different speeds: the distance
from the point at which the brakes are applied until the car stops.
Total stopping distance includes the reaction time of the driver -
the time it takes the driver to recognize a hazard and react.
Speeds are in miles per hour, distances in feet.
"BD"<-
structure(.Data =
list(Speed = c(20, 20, 20, 30, 30, 30, 30, 40, 40, 40, 50,
50, 50, 50, 60, 60, 60, 60), Distance = c(12.300000000000001,
16.800000000000001, 14.5, 27, 34.799999999999997, 31.399999999999999,
38.399999999999999, 70.599999999999994, 75.5, 68.900000000000006, 121,
130, 123.2, 116.59999999999999, 179.19999999999999, 171.59999999999999,
151.30000000000001, 166.40000000000001)), row.names = c("1", "2", "3",
"4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16",
"17", "18"),
class = "data.frame")