# NOT RUN {
pobre_x_dpto <- get_estimation_mean(variable = "pobre06", by.x = "nomdpto", level = "h") %>%
dplyr::filter(pobre06 == "No pobre")
pobre_x_dpto_geo <- add_geom(data = pobre_x_dpto, unit = "Departamentos", variable = "nomdpto")
# }
Run the code above in your browser using DataLab