coast_starlight <-
structure(list(station = structure(c(15L, 9L, 2L, 6L, 16L, 10L, 
12L, 1L, 5L, 11L, 4L, 13L, 14L, 8L, 3L, 7L), .Label = c("Albany", 
"Centralia", "Chico", "Emeryville", "Eugene", "Kelso", "KlamathFalls", 
"LosAngeles", "Olympia", "Portland", "Sacramento", "Salem", "Salinas", 
"SantaBarbara", "Tacoma", "Vancouver"), class = "factor"), dist = c(40L, 
32L, 43L, 39L, 10L, 53L, 28L, 43L, 195L, 84L, 113L, 352L, 252L, 
103L, 95L, 237L), travel_time = c(57L, 46L, 23L, 46L, 43L, 20L, 
110L, 32L, 49L, 177L, 120L, 211L, 376L, 168L, 326L, 258L)), row.names = c(NA, 
-16L), class = c("tbl_df", "tbl", "data.frame"))