Caso de Modelos de cobertura:

22/02/2022

Modelos de nano stores - Heatmaps

¿Cómo un modelo de análisis de cobertura se puede implementar en un proceso de modelamiento venta con restricciones?.

#setwd("D:/EMPRESA TAQUIAGUTIERREZ/asignacionDemandaAplicacionEnLinea")
demandaGrupo1 <- read_excel("D:/CII/analisisPredictivo/20220/semana7/demandaGrupo1.xlsx")
demandaGrupo2 <- read_excel("D:/CII/analisisPredictivo/20220/semana7/demandaGrupo2.xlsx")
dataLocales<- read_excel("D:/CII/analisisPredictivo/20220/semana7/geolocalizacion.xlsx")
rows1<-length(na.omit(demandaGrupo2$Address))
rows2<-length(na.omit(dataLocales$Address))

myList <- list()
# set de lists
for(i in 1:rows1){
  element<-c(demandaGrupo2$Longitud[i],demandaGrupo2$Latitud[i])
  myList[[length(myList)+1]] <- list(element)
}

Tecnología de reparto con restricciones ventanas de tiempo

Breakpoint

Practica con Rmdn

lst2 <- unlist(asignacion, use.names = FALSE)
hist(lst2)

# definir el centro del mapa
lat_center<-mean(dataLocales$lat) 
long_center <- mean(dataLocales$lng)

Slide with Plot

# Creamos el mapa de calor para la intensidad 
viz_map_emolientes <-locales_alcance %>%leaflet() %>% 
  addTiles() %>% 
  addProviderTiles(providers$OpenStreetMap.DE) %>% 
  setView(long_center,lat_center,14) %>% addHeatmap(lng=~locales_alcance$lng,lat=~locales_alcance$lat, intensity= locales_alcance$intensidad,max=20,radius=20,blur=10)

viz_map_emolientes