Análisis del COVID-19-Honduras al 1 de julio 2021 / Parte II COVID-19-Honduras

Fuente:foto es del proyecto Aldea Global/paghonduras.org.

##PARTE II

#Para ir a la parte I haga click en https://rpubs.com/rchang/797412

Los datos analizados provienen del Datos Observatorio Demgráfico Universitario de la Universidad Nacional Autónoma de Honduras, SINAGER y DOMO CORANOVIRUS TRACKER.

##Haga Click Aqui para ver Certificado Machine Learning MIT https://www.credential.net/4dd365ea-ea5a-46a2-a72e-539e70545c6e

##Haga Click Aqui para ver Certificado Columbia Python for Managers https://certificates.emeritus.org/0a2e1de7-add2-4710-ad49-417d1dadfb61#gs.4a92hv ##Contacto: rchang@unah.edu.hn

Algunos Dashboards elaborados son: Para Bolsa de Valores https://rchang.shinyapps.io/rchang-stock-exchange/

Para el Estado del Clima https://rchang.shinyapps.io/rchang-app_clima_ho/

Para Machine Learning https://rchang.shinyapps.io/rchang-app/

Para Empresariales e Industriales https://rchang.shinyapps.io/rchang-app_final_emp/

Para Dashboards con log in https://rchang.shinyapps.io/clase_3-shiny-2/_w_ae4e775f/_w_f249a9a1/?page=sign_in

y para Sistemas de Información Geográfica

Calculemos la distancia y tiempo en carro entre Juticalpa y el Distrito Central, suponiendo que un paciente COVID-19 necesita ir un centro asistencial en la capital.

dist<- departamento_1 %>% dplyr::select(Departamento, Latitud, Longitud) %>% 
 dplyr::filter(Departamento == "Francisco Morazán") 
dist1<- departamento_1 %>% dplyr::select(Departamento, Latitud, Longitud) %>% 
 dplyr::filter(Departamento =="Olancho") 
dist2<- departamento_1 %>% dplyr::select(Departamento, Latitud, Longitud) %>% 
 dplyr::filter(Departamento =="Olancho" & Departamento == "Francisco Morazán") 

library(osrm)

## Data: (c) OpenStreetMap contributors, ODbL 1.0 - http://www.openstreetmap.org/copyright

## Routing: OSRM - http://project-osrm.org/

dist_viaje1 <- osrmRoute(src = c(dist$Departamento, dist$Latitud, dist$Longitud), 
                          dst = c(dist1$Departamento, dist1$Latitud, dist1$Longitud), 
                          returnclass = "sf", 
                          overview = "full",
                          osrm.profile = "car")

m <- leaflet() %>% setView(lng = -86.241905, lat = 15.199999, zoom = 6) 

m %>% addTiles() %>% 
    addPolylines(dist2, lng= dist2$Longitud, lat = dist2$Latitud, color = "red",
                 label = paste("Distancia:", dist_viaje1$distance, "|",
                               "Duración:", dist_viaje1$duration))

#Conclusiones

Los municipios con mayor casos, muertes y personas recuperadas de COVID-19 en Honduras son el Distrito Central y San Pedro Sula.

Asimismo la segunda ola de COVID-19 en Honduras sigue en ascenso tanto en nuevos caso como en muertes.

#Para ir a la parte I haga click en https://rpubs.com/rchang/797412