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).
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)
.
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"))
# crea un archivo bib con todos los paquetes usados en este documento knitr::write_bib(c('base', 'rmarkdown', 'EPP'), file = 'reference.bib')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.