if (FALSE) {
# Basic usage with city name
result <- analyze_and_visualize_uhi(
location = "Basel, Switzerland",
date_range = c("2023-06-01", "2023-08-31")
)
# View interactive map
result$maps$interactive
# View static combined map
print(result$maps$combined)
# View statistics
print(result$stats$descriptive)
print(result$stats$correlations)
# Export results
result$export_geojson("basel_uhi_results.geojson")
result$export_results("basel_uhi", formats = c("geojson", "csv"))
# Using bounding box instead of city name
result_bbox <- analyze_and_visualize_uhi(
location = c(7.55, 47.53, 7.65, 47.58), # Basel area
date_range = c("2023-07-01", "2023-07-31"),
thermal_source = "landsat",
hex_resolution = 9 # Larger hexagons
)
# With GHSL built-up data for more accurate built coverage
result_ghsl <- analyze_and_visualize_uhi(
location = "Zurich, Switzerland",
date_range = c("2023-06-01", "2023-08-31"),
ghsl_path = "path/to/ghsl_built.tif"
)
}
Run the code above in your browser using DataLab