*importar paquetes
library(pacman)
p_load("base64enc", "htmltools", "mime", "xfun", "prettydoc", "readr", "knitr", "DT", "tidyverse")analisis de datos diarios de covid-19 y salud para Jalisco
*se utilizaran datos abiertos del portal de coronavirus del gobierno de mexico, que se pueden encontrar en: https://coronavirus.gob.mx/datos/#DownZCSV
##leer datos del archivo local descargado
datos <- read.csv("Casos_Diarios_Estado_Nacional_Confirmados_20200913.csv")# datos confirmados para jalisco (absolutos y acumulados)
jalisco <- t(datos[datos$nombre =="jalisco" ,])
jalisco <- as.vector(jalisco)
jalisco <- jalisco[4:248]
jalisco <- as.numeric(jalisco)
jalisco <- as.vector(jalisco)
jalisco <- cumsum(jalisco)
# datos confirmados para nayarit (absolutos y acumulados)
nayarit <- t(datos[datos$nombre =="nayarit" ,])
nayarit <- as.vector(nayarit)
nayarit <- nayarit[4:248]
nayarit <- as.numeric(nayarit)
nayarit <- as.vector(nayarit)
nayarit <- cumsum(nayarit)
#vector de fecha
Fecha <- seq(from = as.Date("2020-01-12"), to= as.Date("2020-09-12"), by="day")