Appendix D

## [1] "2026-08-01"

A.2 COVID 19 Cumulativo

Usa los datos de COVID-19 en Puerto Rico (PR) del Departamento de Salud de PR.

url_COVID_PR <- read_csv("Datos/url_COVID_PR.csv")

head(url_COVID_PR)
## # A tibble: 6 × 18
##    ...1 Fecha   Muertes IncrementoMuertes CasosPCR_Salud IncCasosPCR_Salud
##   <dbl> <chr>     <dbl>             <dbl>          <dbl>             <dbl>
## 1     1 3/12/20       0                 0             NA                NA
## 2     2 3/13/20       0                 0             NA                NA
## 3     3 3/14/20       0                 0             NA                NA
## 4     4 3/15/20       0                 0             NA                NA
## 5     5 3/16/20       0                 0             NA                NA
## 6     6 3/17/20       0                 0             NA                NA
## # ℹ 12 more variables: CasosSaludNuevo <dbl>, IncCasosSaludNuevo <dbl>,
## #   HospitCOV19 <dbl>, CamasICU <dbl>, CamasICU_disp <dbl>, Ventiladores <dbl>,
## #   MuertesSalud <dbl>, IncMueSalud <dbl>, VacDoses <dbl>, VacAdm <dbl>,
## #   N1MoreDoses <dbl>, N2Doses <dbl>
  1. Calcula los promedios en periodos de 7 (días; promedio corriendo) y añádele a tu dataframe

Un promedio cumulativo (cummean) usa todos los datos desde el inicio hasta cada fecha, mientras que un promedio corriendo o móvil (rollmean con ventana de 7 días) solo promedia los días más cercanos.

cummean() (paquete dplyr) y rollmean() (paquete zoo) — resumen una serie de valores a lo largo del tiempo.

  • cummean(x): devuelve el promedio acumulado — cada valor es el promedio de todos los datos hasta esa fila.
  • rollmean(x, k = 7, fill = NA, align = "left"): el promedio móvil de una ventana de k días; fill = NA rellena los extremos donde no hay ventana completa y align fija dónde se ancla la ventana.
  • rollapply(x, width, FUN): versión general que aplica cualquier función (aquí var) sobre una ventana móvil.

_ Usa la columna de IncCasosSaludNuevo para todos los cálculos

  • Enseñe las primeras 20 filas de tu dataframe con las nuevas columnas añadidas
  1. Haz una figura que muestra el cambio en el promedio cumulativo corriendo de casos nuevos.