# Estimate a common geography for 2006 and 2016 dissemination areas in the City of Vancouver
# based on the geographic data and check estimation errors
if (FALSE) {
toronto_city_hall <- sf::st_point(c(-79.3839,43.6534)) %>%
sf::st_sfc(crs=4326) %>%
sf::st_transform(3348) %>%
sf::st_buffer(1000) %>%
sf::st_sf()
meta <- meta_for_additive_variables("CA16","Population")
data <- tongfen_estimate_ca_census(toronto_city_hall,meta,level="DA",intersection_level="CT")
print(paste0("Approximately ",scales::comma(data$Population,accuracy=100),
" people live within a 1 km radius of Toronto City."))
}
Run the code above in your browser using DataLab