# NOT RUN {
library(modeldata)
data(Smithsonian)
# How close are the museums to Union Station?
near_station <- recipe( ~ ., data = Smithsonian) %>%
update_role(name, new_role = "location") %>%
step_geodist(lat = latitude, lon = longitude, log = FALSE,
ref_lat = 38.8986312, ref_lon = -77.0062457,
is_lat_lon = TRUE) %>%
prep(training = Smithsonian)
bake(near_station, new_data = NULL) %>%
arrange(geo_dist)
tidy(near_station, number = 1)
# }
Run the code above in your browser using DataLab