Base ENFERMEDADES CARDIACAS
library(readxl)
act4 <- read_excel("C:/Users/psicr/Downloads/a4_heart_disease_uci.xlsx", sheet =1)
summary(act4)
## id age sex dataset
## Min. : 1.0 Min. :28.00 Length:920 Length:920
## 1st Qu.:230.8 1st Qu.:47.00 Class :character Class :character
## Median :460.5 Median :54.00 Mode :character Mode :character
## Mean :460.5 Mean :53.51
## 3rd Qu.:690.2 3rd Qu.:60.00
## Max. :920.0 Max. :77.00
##
## cp trestbps chol fbs
## Length:920 Min. : 0.0 Min. : 0.0 Mode :logical
## Class :character 1st Qu.:120.0 1st Qu.:175.0 FALSE:692
## Mode :character Median :130.0 Median :223.0 TRUE :138
## Mean :132.1 Mean :199.1 NA's :90
## 3rd Qu.:140.0 3rd Qu.:268.0
## Max. :200.0 Max. :603.0
## NA's :59 NA's :30
## restecg thalch exang oldpeak
## Length:920 Min. : 60.0 Mode :logical Min. :-2.6000
## Class :character 1st Qu.:120.0 FALSE:528 1st Qu.: 0.0000
## Mode :character Median :140.0 TRUE :337 Median : 0.5000
## Mean :137.5 NA's :55 Mean : 0.8788
## 3rd Qu.:157.0 3rd Qu.: 1.5000
## Max. :202.0 Max. : 6.2000
## NA's :55 NA's :62
## slope ca thal num
## Length:920 Min. :0.0000 Length:920 Min. :0.0000
## Class :character 1st Qu.:0.0000 Class :character 1st Qu.:0.0000
## Mode :character Median :0.0000 Mode :character Median :1.0000
## Mean :0.6764 Mean :0.9957
## 3rd Qu.:1.0000 3rd Qu.:2.0000
## Max. :3.0000 Max. :4.0000
## NA's :611
Se retoma la variable Presión arterial en reposo (trestbps) la cual,
de acuerdo con la página Medline Plus la presión se considera normal en
niveles menores a 120 y elevada de 120 a 129; se considera hipertensión
1 cuando la presión arterial sistólica se encuentra en 130 - 139, y
niveles más altos indican grado 2 y posteriormente crisis. Estos
criterios cambian ligeramente con los adultos mayores.
La pregunta es ¿la media de presión arterial de los participantes,
que no son adultos mayores, es mayor a 129?
Ho: La presión arterial promedio de los participantes que no son
adultos mayores será igual o menor a 129.
Hi: La presión arterial promedio de los participantes que no son
adultos mayores será superior a 129
En medicina la probabilidad de error debe ser baja por las
implicaciones sobre salud de las personas, por lo cual se empleará una
significancia de .01
Será un contraste unilateral
Para decidir la prueba se hará un análisis de destribución
normal.
Se selecciona a los participantes menores a los 65 años.
particip_adultos <- subset(act4, age < 65)
frec_normalidad <- shapiro.test(particip_adultos$trestbps)
print(frec_normalidad)
##
## Shapiro-Wilk normality test
##
## data: particip_adultos$trestbps
## W = 0.94848, p-value = 9.2e-16
La prueba de normalidad indica que la distribución de la frecuencia
cardiaca no es igual a la normal. Se utilizará distribución t de
Student.
mu0 <- 129
prubt <- t.test(particip_adultos$trestbps, mu= mu0, conf.level = 0.99)
print(prubt)
##
## One Sample t-test
##
## data: particip_adultos$trestbps
## t = 3.3777, df = 771, p-value = 0.0007676
## alternative hypothesis: true mean is not equal to 129
## 99 percent confidence interval:
## 129.5433 133.0707
## sample estimates:
## mean of x
## 131.307
Los resultados muestran que la media estimada fue 131.30 y que esta
es estadísticamente diferente del valor 129 que es el límite de una
frecuencia alta pero aún normal. Al estar por encima, se consideraría
que la muestra de participantes podría estar presentando indicios de
problemas cardiacos.