I have some data with a similar structure.
test_data <- data.frame(start = c(1,15,17,35), time = c(87, 1, 35, 3),