## Prueba de hipótesis: las que aplique según la muestra
## Inferencia de esos datos
#χ² (Chi-cuadrado): Estadístico que mide la diferencia entre frecuencias observadas y esperadas.
### es una prueba estadística utilizada para determinar si existe una relación significativa entre dos variables categóricas
library(readxl)
## Warning: package 'readxl' was built under R version 4.4.2
Base_de_datos_hipotesis <- read_excel("C:/Users/USUARIO/Downloads/Base_de_datos_hipotesis.xlsx")
View(Base_de_datos_hipotesis)
set.seed(123)
muestra.genero=sample(Base_de_datos_hipotesis$Sexo, size=200 , replace = FALSE)
muestra.genero
## [1] "Femenino" "Masculino" "Femenino" "Femenino" "Masculino" "Femenino"
## [7] "Femenino" "Femenino" "Femenino" "Femenino" "Masculino" "Femenino"
## [13] "Masculino" "Masculino" "Femenino" "Femenino" "Femenino" "Masculino"
## [19] "Masculino" "Masculino" "Femenino" "Femenino" "Masculino" "Masculino"
## [25] "Femenino" "Masculino" "Femenino" "Femenino" "Masculino" "Masculino"
## [31] "Femenino" "Masculino" "Femenino" "Femenino" "Femenino" "Femenino"
## [37] "Masculino" "Masculino" "Femenino" "Femenino" "Femenino" "Femenino"
## [43] "Femenino" "Masculino" "Masculino" "Masculino" "Femenino" "Masculino"
## [49] "Masculino" "Femenino" "Femenino" "Femenino" "Masculino" "Masculino"
## [55] "Masculino" "Femenino" "Masculino" "Masculino" "Femenino" "Masculino"
## [61] "Masculino" "Masculino" "Femenino" "Femenino" "Femenino" "Femenino"
## [67] "Masculino" "Femenino" "Femenino" "Masculino" "Masculino" "Masculino"
## [73] "Femenino" "Masculino" "Femenino" "Femenino" "Femenino" "Masculino"
## [79] "Femenino" "Femenino" "Femenino" "Femenino" "Femenino" "Masculino"
## [85] "Femenino" "Masculino" "Masculino" "Masculino" "Femenino" "Masculino"
## [91] "Masculino" "Masculino" "Masculino" "Femenino" "Femenino" "Femenino"
## [97] "Femenino" "Masculino" "Femenino" "Femenino" "Femenino" "Femenino"
## [103] "Masculino" "Femenino" "Masculino" "Masculino" "Femenino" "Femenino"
## [109] "Masculino" "Masculino" "Masculino" "Masculino" "Masculino" "Femenino"
## [115] "Femenino" "Femenino" "Masculino" "Masculino" "Femenino" "Masculino"
## [121] "Femenino" "Femenino" "Masculino" "Femenino" "Masculino" "Femenino"
## [127] "Masculino" "Femenino" "Femenino" "Masculino" "Masculino" "Masculino"
## [133] "Masculino" "Masculino" "Femenino" "Femenino" "Masculino" "Masculino"
## [139] "Masculino" "Femenino" "Femenino" "Masculino" "Masculino" "Femenino"
## [145] "Femenino" "Femenino" "Femenino" "Femenino" "Femenino" "Masculino"
## [151] "Masculino" "Masculino" "Femenino" "Masculino" "Femenino" "Femenino"
## [157] "Masculino" "Masculino" "Femenino" "Masculino" "Femenino" "Femenino"
## [163] "Femenino" "Femenino" "Femenino" "Masculino" "Femenino" "Femenino"
## [169] "Masculino" "Masculino" "Femenino" "Femenino" "Femenino" "Masculino"
## [175] "Masculino" "Masculino" "Masculino" "Femenino" "Masculino" "Masculino"
## [181] "Femenino" "Masculino" "Femenino" "Masculino" "Femenino" "Femenino"
## [187] "Masculino" "Masculino" "Femenino" "Masculino" "Femenino" "Femenino"
## [193] "Masculino" "Femenino" "Femenino" "Masculino" "Masculino" "Masculino"
## [199] "Femenino" "Masculino"
set.seed(123)
muestra.estres=sample(Base_de_datos_hipotesis$`Nivel estrés`, size = 200, replace = FALSE)
muestra.estres
## [1] "Bajo" "Moderado" "Bajo" "Moderado" "Bajo" "Moderado"
## [7] "Moderado" "Bajo" "Bajo" "Moderado" "Moderado" "Moderado"
## [13] "Moderado" "Alto" "Alto" "Alto" "Bajo" "Moderado"
## [19] "Alto" "Alto" "Moderado" "Bajo" "Bajo" "Bajo"
## [25] "Moderado" "Moderado" "Bajo" "Bajo" "Alto" "Alto"
## [31] "Alto" "Moderado" "Bajo" "Moderado" "Bajo" "Moderado"
## [37] "Alto" "Bajo" "Moderado" "Moderado" "Moderado" "Bajo"
## [43] "Bajo" "Bajo" "Moderado" "Moderado" "Moderado" "Alto"
## [49] "Alto" "Alto" "Moderado" "Bajo" "Alto" "Bajo"
## [55] "Bajo" "Alto" "Bajo" "Moderado" "Alto" "Alto"
## [61] "Moderado" "Bajo" "Moderado" "Alto" "Alto" "Moderado"
## [67] "Alto" "Moderado" "Moderado" "Moderado" "Moderado" "Alto"
## [73] "Moderado" "Moderado" "Moderado" "Alto" "Alto" "Alto"
## [79] "Bajo" "Bajo" "Bajo" "Moderado" "Bajo" "Moderado"
## [85] "Alto" "Alto" "Moderado" "Moderado" "Moderado" "Moderado"
## [91] "Alto" "Bajo" "Alto" "Bajo" "Moderado" "Bajo"
## [97] "Moderado" "Alto" "Bajo" "Moderado" "Bajo" "Moderado"
## [103] "Alto" "Bajo" "Bajo" "Alto" "Alto" "Bajo"
## [109] "Bajo" "Moderado" "Moderado" "Moderado" "Bajo" "Alto"
## [115] "Moderado" "Bajo" "Moderado" "Alto" "Bajo" "Moderado"
## [121] "Moderado" "Moderado" "Moderado" "Moderado" "Moderado" "Alto"
## [127] "Alto" "Bajo" "Moderado" "Moderado" "Moderado" "Moderado"
## [133] "Bajo" "Alto" "Bajo" "Moderado" "Alto" "Bajo"
## [139] "Bajo" "Alto" "Moderado" "Moderado" "Bajo" "Alto"
## [145] "Moderado" "Alto" "Alto" "Alto" "Bajo" "Alto"
## [151] "Alto" "Alto" "Moderado" "Moderado" "Moderado" "Moderado"
## [157] "Alto" "Alto" "Bajo" "Alto" "Alto" "Alto"
## [163] "Alto" "Bajo" "Moderado" "Bajo" "Alto" "Alto"
## [169] "Bajo" "Alto" "Bajo" "Bajo" "Moderado" "Alto"
## [175] "Alto" "Moderado" "Moderado" "Bajo" "Moderado" "Moderado"
## [181] "Moderado" "Bajo" "Alto" "Alto" "Bajo" "Moderado"
## [187] "Alto" "Alto" "Alto" "Bajo" "Moderado" "Moderado"
## [193] "Bajo" "Moderado" "Moderado" "Moderado" "Moderado" "Moderado"
## [199] "Moderado" "Moderado"
N.hombres_alto=subset(muestra.genero, muestra.genero == "Masculino" & muestra.estres == "Alto")
N.hombres_moderado=subset(muestra.genero, muestra.genero == "Masculino" & muestra.estres == "Moderado")
N.hombres_bajo=subset(muestra.genero, muestra.genero == "Masculino" & muestra.estres == "Bajo")
N.mujeres_alto=subset(muestra.genero, muestra.genero== "Femenino" & muestra.estres == "Alto")
N.mujeres_moderado=subset(muestra.genero, muestra.genero == "Femenino" & muestra.estres == "Moderado")
N.Mujeres_bajo=subset(muestra.genero, muestra.genero == "Femenino" & muestra.estres == "Bajo")
N.hombres_alto
## [1] "Masculino" "Masculino" "Masculino" "Masculino" "Masculino" "Masculino"
## [7] "Masculino" "Masculino" "Masculino" "Masculino" "Masculino" "Masculino"
## [13] "Masculino" "Masculino" "Masculino" "Masculino" "Masculino" "Masculino"
## [19] "Masculino" "Masculino" "Masculino" "Masculino" "Masculino" "Masculino"
## [25] "Masculino" "Masculino" "Masculino" "Masculino" "Masculino" "Masculino"
## [31] "Masculino" "Masculino" "Masculino" "Masculino" "Masculino"
N.hombres.total.alto=length(N.hombres_alto)
N.hombres.total.alto
## [1] 35
N.hombres_moderado
## [1] "Masculino" "Masculino" "Masculino" "Masculino" "Masculino" "Masculino"
## [7] "Masculino" "Masculino" "Masculino" "Masculino" "Masculino" "Masculino"
## [13] "Masculino" "Masculino" "Masculino" "Masculino" "Masculino" "Masculino"
## [19] "Masculino" "Masculino" "Masculino" "Masculino" "Masculino" "Masculino"
## [25] "Masculino" "Masculino" "Masculino" "Masculino" "Masculino" "Masculino"
## [31] "Masculino" "Masculino" "Masculino" "Masculino" "Masculino" "Masculino"
## [37] "Masculino"
N.hombres.total.moderado=length(N.hombres_moderado)
N.hombres.total.moderado
## [1] 37
N.hombres_bajo
## [1] "Masculino" "Masculino" "Masculino" "Masculino" "Masculino" "Masculino"
## [7] "Masculino" "Masculino" "Masculino" "Masculino" "Masculino" "Masculino"
## [13] "Masculino" "Masculino" "Masculino" "Masculino" "Masculino" "Masculino"
## [19] "Masculino" "Masculino" "Masculino" "Masculino"
N.hombres.total.bajo=length(N.hombres_bajo)
N.hombres.total.bajo
## [1] 22
N.mujeres_alto
## [1] "Femenino" "Femenino" "Femenino" "Femenino" "Femenino" "Femenino"
## [7] "Femenino" "Femenino" "Femenino" "Femenino" "Femenino" "Femenino"
## [13] "Femenino" "Femenino" "Femenino" "Femenino" "Femenino" "Femenino"
## [19] "Femenino" "Femenino" "Femenino" "Femenino" "Femenino" "Femenino"
## [25] "Femenino" "Femenino"
N.mujeres.total.alto=length(N.mujeres_alto)
N.mujeres.total.alto
## [1] 26
N.mujeres_moderado
## [1] "Femenino" "Femenino" "Femenino" "Femenino" "Femenino" "Femenino"
## [7] "Femenino" "Femenino" "Femenino" "Femenino" "Femenino" "Femenino"
## [13] "Femenino" "Femenino" "Femenino" "Femenino" "Femenino" "Femenino"
## [19] "Femenino" "Femenino" "Femenino" "Femenino" "Femenino" "Femenino"
## [25] "Femenino" "Femenino" "Femenino" "Femenino" "Femenino" "Femenino"
## [31] "Femenino" "Femenino" "Femenino" "Femenino" "Femenino" "Femenino"
## [37] "Femenino" "Femenino" "Femenino" "Femenino" "Femenino" "Femenino"
## [43] "Femenino" "Femenino" "Femenino" "Femenino"
N.mujeres.total.moderado=length(N.mujeres_moderado)
N.mujeres.total.moderado
## [1] 46
N.Mujeres_bajo
## [1] "Femenino" "Femenino" "Femenino" "Femenino" "Femenino" "Femenino"
## [7] "Femenino" "Femenino" "Femenino" "Femenino" "Femenino" "Femenino"
## [13] "Femenino" "Femenino" "Femenino" "Femenino" "Femenino" "Femenino"
## [19] "Femenino" "Femenino" "Femenino" "Femenino" "Femenino" "Femenino"
## [25] "Femenino" "Femenino" "Femenino" "Femenino" "Femenino" "Femenino"
## [31] "Femenino" "Femenino" "Femenino" "Femenino"
N.mujeres.total.bajo=length(N.Mujeres_bajo)
N.mujeres.total.bajo
## [1] 34
Tabla.contigencia= matrix(c(N.hombres.total.alto, N.hombres.total.moderado, N.hombres.total.bajo, N.mujeres.total.alto, N.mujeres.total.moderado, N.mujeres.total.bajo) , nrow = 2) #Matrix de hombres casados y mujeres casadas
colnames(Tabla.contigencia)= c("Alto", "Moderado","Bajo") #Etiqueta de columnas
rownames(Tabla.contigencia)=c("Femenino" , "Masculino") #Etiqueta de filas
Tabla.contigencia #Tabla de contigencia
## Alto Moderado Bajo
## Femenino 35 22 46
## Masculino 37 26 34
resultado_chi <- chisq.test(Tabla.contigencia)
#Mostrar los resultados de la prueba de Chi-cuadrado
print(resultado_chi)
##
## Pearson's Chi-squared test
##
## data: Tabla.contigencia
## X-squared = 2.0107, df = 2, p-value = 0.3659
## Interpretacion
#como el resultado de la prueba chi cuadrado dio 0.3659 no se rechaza la hipotesis nula. esto inidica que no esxite suficiente evidencia para decir que los niveles de estrés en los estudiantes difieren de manera significativa entre hombres y mujeres.
## Conclusiones y posibles recomendaciones.
##como conclusion final se puede afirma que no esxite suficiente claraidad para afirmar que existe una asociacion entre las dos variiables categoricas sexo y niveles de estres.
##recomendacion estidiar de forma mas exhaustiva los datos a analizar, revisar otros metodos estadsiticos, examinar el contexto y la seleccion de la poblacion.