In RichDeto/EPP: Evaluation of Proximity Programs

knitr::opts_chunk$set(echo = FALSE)
require(EPP); library(ggplot2)
centers <- centers_epp # Inlcuye aqui tu data.frame con información de los centros de atención.
pop <- pop_epp # Inlcuye aqui tu data.frame con información de la población a cubrir.
var_of_weight <- "ICC" # Nombre de la variable usada como "weight".
# Incluye aquí otros parametros que ajusten a tu caso
# n <- 3 # Numero total de iteraciones con la distancia "d1".
# m <- 0 # Numero total de iteraciones considerando dos distancias de radio de acción de los centros.
# d1 <- 1000 # Radio en metros que cada centro cubre en las primeras "n" iteraciones.
# d2 <- 2000 # Radio en metros que cada centro cubre en las últimas "m" - "n" iteracions.
crs <- sp::CRS("+init=epsg:32721") # Sistema de Coordenadas de Referencia (CRS).

Inputs

Este reporte presenta la evaluación de cobertura de r nrow(centers) centros, y la cobertura por proximidad de r nrow(pop) individuos que presentan una media de r var_of_weight equivalente a r mean(pop$weight).

Outputs

set.seed(1)
exist <- eppexist(pop = pop, centers = centers, crs = crs)

La población que no pudo ser cubierta corresponde a r nrow(exist$pop_uncover) casos, con una media de r var_of_weight equivalente a r mean(exist$pop_uncover$weight).

Por su parte la población asignada a sus correspondientes centros fue de r nrow(exist$pop_assigned) casos, con una media de r var_of_weight equivalente a r mean(exist$pop_assigned$weight).

ggplot(exist$pop_assigned, aes(x = id, y = weight, color = it)) + 
    geom_point(size = 6)

Desde el punto de los centros, veamos la capacidad no utilizada después del procesamiento, para evaluar que centros hay que analizar por exceso de oferta de cupos.

ggplot(exist$remaining_capacity, aes(x = id, y = capacity)) + 
    geom_bar(stat = "identity")

Para Visualizar los resultados, aquí está el mapa.

leafepp(exist, t = "exist", crs = sp::CRS("+init=epsg:32721"))

Bibliography

# crea un archivo bib con todos los paquetes usados en este documento
knitr::write_bib(c('base', 'rmarkdown', 'EPP'), file = 'reference.bib')

RichDeto/EPP documentation built on May 5, 2022, 10:23 p.m.