R Notebook

Comparaciones entre grupos

Cargando datos

elvia_para <- 
  elvia_LM %>% 
  mutate(genero = genero)

Error: Problem with `mutate()` input `genero`.
x Input `genero` can't be recycled to size 1.
ℹ Input `genero` is `genero`.
ℹ Input `genero` must be size 1, not 1100.
ℹ Did you mean: `genero = list(genero)` ?
ℹ The error occurred in row 1.
Run `rlang::last_error()` to see where the error occurred.

¿Existen diferencias significativas entre el género?

Cuál es el promedio académico de hombres y mujeres

Parece que los hombres tienen mejor desempeño académico.

Normalidad

ks.test(elvia_femenico$rend_aca,
        "pnorm", 
        mean(elvia_femenico$rend_aca), 
        sd(elvia_femenico$rend_aca))

ties should not be present for the Kolmogorov-Smirnov test

    One-sample Kolmogorov-Smirnov test

data:  elvia_femenico$rend_aca
D = 0.25807, p-value < 2.2e-16
alternative hypothesis: two-sided

Si p-valor es menor a 0.05 es normal.

ks.test(elvia_masculino$rend_aca,
        "pnorm", 
        mean(elvia_masculino$rend_aca), 
        sd(elvia_masculino$rend_aca))

ties should not be present for the Kolmogorov-Smirnov test

    One-sample Kolmogorov-Smirnov test

data:  elvia_masculino$rend_aca
D = 0.26699, p-value < 2.2e-16
alternative hypothesis: two-sided

Si p-valor es menor a 0.05 es normal.

Diferencias significativas entre ellos - Anova

Procedemos a aplicar una anova para determinar si hay diferencias significativas entre ellos.

Aplicamos una anova.

summary(elvia_para.anova)

                    Df Sum Sq Mean Sq F value Pr(>F)
elvia_para$genero    1    0.4  0.3759   0.623   0.43
Residuals         1098  662.7  0.6035               

Si hay diferencias porque el Pr(>F) dio mayor a 0.05, por lo tanto no hay diferencias significativas en el desempeño entre hombres y mujeres.