Démonstrateur ASPE : Eléments Peuplement 1 point

Chargement des packages et des données

library(aspe)
library(tidyverse)

load(file = "processed_data/captures.RData")
# load(file = "processed_data/pop_geo.RData")
# load(file = "processed_data/sh_geo.RData")

mon_pop <- "35803"
capt_mef_colo_ext <- mef_colo_ext_pop(df = captures,
                                      id_point = mon_pop)

gg_colo_ext_pop(capt_mef_colo_ext)

IPR

# ipr <- mef_creer_passerelle() %>% 
#   ipr_extraire()

Sauvegarde des données préparées

#save(capt_mef_colo_ext, file = "processed_data/captures.RData")