winery_cars <-
structure(list(obs_number = 1:52, time_until_next = c(52.299999999999997, 
48.700000000000003, 107.09, 56, 48.82, 50.350000000000001, 52.68, 
53.439999999999998, 55.310000000000002, 103.02, 54.609999999999999, 
50.07, 50.280000000000001, 54.049999999999997, 56.450000000000003, 
50.740000000000002, 98.629999999999995, 53.579999999999998, 52.799999999999997, 
56.049999999999997, 55.280000000000001, 55.450000000000003, 51.619999999999997, 
106.2, 53.75, 66.629999999999995, 63.530000000000001, 57.310000000000002, 
50.649999999999999, 52.789999999999999, 74.319999999999993, 58.490000000000002, 
56.109999999999999, 47.450000000000003, 53.729999999999997, 49.07, 
57.729999999999997, 103.39, 59.329999999999998, 45.689999999999998, 
56.640000000000001, 51.229999999999997, 64.120000000000005, 51.579999999999998, 
100.29000000000001, 49.049999999999997, 53.380000000000003, 54.869999999999997, 
51.469999999999999, 51.130000000000003, 50.909999999999997, 107.83
)), row.names = c(NA, -52L), class = c("tbl_df", "tbl", "data.frame"
))