Carga de Datos

library("plyr")
source("cargar_datos.R")

nombre1= "FERNANDO MATIAS PEREZ CORTEZ"
nombre2= "IGNACIO NAHUEL MOREIRA CARVACHO"
datos = cargar_datos(nombre1, nombre2)
knitr::kable(head(datos[,2:ncol(datos)]))
diagnostico comorbilidad sexo prom_edad ds_edad egreso DE freq
3rd Degree Sideburns Alien DNA Femenino 32 2.18 Alta 169 45
3rd Degree Sideburns Alien DNA Femenino 9 4.98 Fallecido(a) 139 7
3rd Degree Sideburns Alien DNA Masculino 66 0.09 Alta 145 36
3rd Degree Sideburns Alien DNA Masculino 65 1.77 Fallecido(a) 42 7
3rd Degree Sideburns Alien DNA Otro 17 0.30 Alta 75 10
3rd Degree Sideburns Alien DNA Otro 97 0.72 Fallecido(a) 141 2

Actividades

2.1) Primero se tiene el diagnostico de la enfermedad como una variable cualitativa politomica. Luego con la comorbilidad se tiene una variable cualitativa politomica. Sexo corresponde a una variable cualitativa nominal. Con la edad se tiene un variable cuantitativa. La condición de egreso es una variable no cualitativa dicotomica. Los días de estadía en el hospital es una variable cuantitativa.

2.2) 1- Tasa de Letalidad del hospital

totalEgresos = nrow(datos[7]) # datos[7] corresponde a la columna donde estan los egresos

freq = datos[9]
total = sum(datos[9])

egresos = datos[,7]
muertos = 0
i = 1
while(i <= nrow(datos[7])){
  if(egresos[i] == "Fallecido(a)"){
    muertos = muertos + sum((datos[i,])[9])
  }
  i = i + 1
}
tasaLetalidad = muertos/total
tasaLetalidad
## [1] 0.12765

2.3) El promedio de dias totales de estadia

sum(datos[8] * datos[9]) / sum(datos[9])
## [1] 100.7839

2.4) 2- Para esta pregunta se utiliza la distribucion de Poisson

N=sample(seq(5,50),1)
distribucion = dpois(N,30)
print("la probabilidad que en la siguiente hora se atienda como mínimo a N pacientes es: ")
## [1] "la probabilidad que en la siguiente hora se atienda como mínimo a N pacientes es: "
distribucion
## [1] 5.075675e-06