############################################################
# Taller 1 - Estadística descriptiva (cuantitativas) en R
# Maestría en Epidemiología Clínica - Encuentro sincrónico
############################################################

#1) Preparación -----------------------------------------------------------

# Paquetes recomendados
# install.packages(c("dplyr","ggplot2"))  # si no los tiene
library(dplyr)
library(ggplot2)

# 1) Cargar la base de datos ------------------------------------------------

# Leer los datos desde Internet
# Usamos la función url() para leer el archivo desde la URL
url <- "https://bios.fgil.online/uci2.RData"

# Cargar el archivo .RData desde la URL
load(url(url))

# Verificar carga
head(datos)
str(datos)
dim(datos)

# (Opcional) Cambiar variables categóricas a factor con etiquetas
datos <- datos %>%
  mutate(
    GENDER = factor(GENDER, levels = c(0,1), labels = c("Hombre","Mujer")),
    STA    = factor(STA, levels = c(0,1), labels = c("Vivo","Muerto")),
    SER    = factor(SER, levels = c(0,1), labels = c("Médico","Quirúrgico")),
    TYP    = factor(TYP, levels = c(0,1), labels = c("Electiva","Emergencia"))
  )

# Revisar valores faltantes (NA)
colSums(is.na(datos))

# 2) Pregunta 1 -------------------------------------------------------------
# Para AGE, SYS, HRA calcule: media, mediana, sd, rango, IQR









# 3) Pregunta 2 -------------------------------------------------------------
# ¿Cuál es la media de la frecuencia cardíaca de los pacientes al momento de la admisión a la UCI? Interprete este valor. 





# ¿Es este valor representativo de la mayoría de los pacientes?


# 4) Pregunta 3 -------------------------------------------------------------
# ¿Cuál es la media de la presión sistólica de los pacientes al momento de la admisión a la UCI? Interprete este valor. 






# ¿Es este valor representativo de la mayoría de los pacientes?




# 5) Pregunta 4 -------------------------------------------------------------
# Utilice un histograma para visualizar la distribución de la edad de los pacientes.
# ¿Cómo se distribuye la edad de los pacientes? ¿La distribución es simétrica, sesgada o tiene una forma particular?






# 6) Pregunta 5 -------------------------------------------------------------
# Genere un gráfico de caja (boxplot) de la frecuencia cardíaca al ingreso a la UCI. Comente lo observado en el gráfico.






# 7) Pregunta 6 -------------------------------------------------------------
# Calcule las estadísticas descriptivas de la edad y la frecuencia cardíaca para los grupos de sexo (hombres vs. mujeres).




# 8) Pregunta 7 -------------------------------------------------------------
# ¿Qué conclusiones puede extraer sobre el perfil demográfico y clínico de los pacientes en UCI a partir de los datos disponibles?