# \donttest{
md <- tract_generator("24")
dm <- custom_distance_matrix(
md,
label_var = "geoid", lat_var = "latitude", long_var = "longitude"
)
dim(dm[["distance_matrix"]])
names(md) <- c("tract_id", "lat", "lon")
dm_km <- custom_distance_matrix(
md,
unit = "kilometers",
label_var = "tract_id",
lat_var = "lat",
long_var = "lon"
)
# }
Run the code above in your browser using DataLab