Chi-cuadrado

library(readxl)
dataset <- read_excel("Psychological_Data.xlsx")
#View(dataset)

library(janitor)

## 
## Attaching package: 'janitor'

## The following objects are masked from 'package:stats':
## 
##     chisq.test, fisher.test

dataset  %>% clean_names()

## # A tibble: 470 × 12
##     edad estatura_cm nivel_educativo asiste_a_citas_psicol…¹ sufre_de_trastornos
##    <dbl>       <dbl> <chr>           <lgl>                   <lgl>              
##  1    62         181 Secundaria      FALSE                   TRUE               
##  2    65         160 Secundaria      TRUE                    FALSE              
##  3    18         173 Secundaria      FALSE                   FALSE              
##  4    21         185 Primaria        TRUE                    FALSE              
##  5    21         161 Secundaria      FALSE                   TRUE               
##  6    57         178 Secundaria      TRUE                    TRUE               
##  7    27         184 Secundaria      TRUE                    FALSE              
##  8    37         150 Postgrado       TRUE                    FALSE              
##  9    39         150 Primaria        FALSE                   FALSE              
## 10    68         186 Postgrado       TRUE                    FALSE              
## # ℹ 460 more rows
## # ℹ abbreviated name: ¹​asiste_a_citas_psicologicas
## # ℹ 7 more variables: trabaja <lgl>, motivacion_1_10 <dbl>,
## #   ansiedad_1_10 <dbl>, autoestima_1_10 <dbl>, ingresos_mensuales <dbl>,
## #   horas_de_sueno <dbl>, dias_de_ejercicio_por_semana <dbl>

datos_limpios <- na.omit(dataset)

datos_limpios %>% clean_names()

## # A tibble: 272 × 12
##     edad estatura_cm nivel_educativo asiste_a_citas_psicol…¹ sufre_de_trastornos
##    <dbl>       <dbl> <chr>           <lgl>                   <lgl>              
##  1    62         181 Secundaria      FALSE                   TRUE               
##  2    21         161 Secundaria      FALSE                   TRUE               
##  3    57         178 Secundaria      TRUE                    TRUE               
##  4    27         184 Secundaria      TRUE                    FALSE              
##  5    37         150 Postgrado       TRUE                    FALSE              
##  6    39         150 Primaria        FALSE                   FALSE              
##  7    68         186 Postgrado       TRUE                    FALSE              
##  8    54         155 Secundaria      FALSE                   TRUE               
##  9    41         188 Pregrado        TRUE                    TRUE               
## 10    42         165 Pregrado        TRUE                    FALSE              
## # ℹ 262 more rows
## # ℹ abbreviated name: ¹​asiste_a_citas_psicologicas
## # ℹ 7 more variables: trabaja <lgl>, motivacion_1_10 <dbl>,
## #   ansiedad_1_10 <dbl>, autoestima_1_10 <dbl>, ingresos_mensuales <dbl>,
## #   horas_de_sueno <dbl>, dias_de_ejercicio_por_semana <dbl>

tabla_de_contingencia <- table(datos_limpios$`Nivel Educativo` , datos_limpios$Trabaja)
resultado <- chisq.test(tabla_de_contingencia)
print(resultado)

## 
##  Pearson's Chi-squared test
## 
## data:  tabla_de_contingencia
## X-squared = 2.6796, df = 3, p-value = 0.4437