if (require("tidyverse")) {
regAQ <- get_ARPA_Lombardia_AQ_registry()
regAQ <- regAQ %>% filter(Pollutant %in% c("PM10","Ammonia"))
regW <- get_ARPA_Lombardia_W_registry()
registry_KNN_dist(regAQ,regW,k=2)
}
Run the code above in your browser using DataLab