Prueba Hipótesis

Contexto o la teoría

Carga de librerias

Carga de base de datos

texto XXXXXXXXXXXXXX

Employee <- read_csv("HR-Employee.csv")
Employee$Education=as.factor(Employee$Education)
Employee=as.data.frame(unclass(Employee),
                       stringsAsFactors = TRUE)

Cambiode variables

Texto….

Prueba hipótesis

\[ \left\{\begin{matrix} H_{0}:\mu = \mu_{x}\\ H_{A}:\mu \neq \mu_{x} \end{matrix}\right. \] Prueba hipótesis es si la media poblaciona de la base tiene una edad menor a 40 años.

\[ \left\{\begin{matrix} H_{0}:\mu = 40\\ H_{A}:\mu \neq 40 \end{matrix}\right. \]

El p valor es 3.9236047^{-38} con un intervalo de 95% la media poblacional esta entre 36.4568108 y 37.3908083.

texto, texto, texto…

Gráfica

texto, texto, texto

Histograma

texto, texto, texto

## Comparación con genero

texto, texto, texto

Diferencia de medias por genero

\[ \left\{\begin{matrix} H_{0}:\mu_{F} -\mu_{M}=0\\ H_{A}:\mu_{F}- \mu_{M}\neq 0 \end{matrix}\right. \]

## 
##  Two-sample z-Test
## 
## data:  Data$Female$Age and Data$Male$Age
## z = 1.3853, p-value = 0.1659
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.2807548  1.6344963
## sample estimates:
## mean of x mean of y 
##  37.32993  36.65306