Here is some population data for the Nashville area
NashAreaPop <- read.csv("https://drkblake.com/wp-content/uploads/2024/01/NashAreaPop.csv") View(NashAreaPop) sum(NashAreaPop$To)
## [1] 1762832
hist(NashAreaPop$To)