# Calcularemos el intervalo de confianza para una muestra (Casen 2020 para SPSS) de la variable ingresos del trabajo (ytrabajocor).
# Para ello podríamos primero calcular paso a paso los insumos requeridos para aplicar la fórmula vista en la última sesión...
ing_trabajo<-na.omit(Casen_en_Pandemia_2020_SPSS_revisada202209$ytrabajocor)               
mean(ing_trabajo)->media_muestra
length(ing_trabajo)->n_muestra
qt (.975, df = 73509)->t_calculado
sd(ing_trabajo)->de_muestra
#Ahora podemos calcular el EEE.
(de_muestra/sqrt(n_muestra))->EEE
#Y calcular el intervalo de confianza:
media_muestra+t_calculado*EEE
media_muestra-t_calculado*EEE
#Ahora veremos como calcularlo aplicando una función:
t.test(x=ing_trabajo, conf.level=0.95)
# Recordar la importancia de evaluar previamente la normalidad de la variable en la población... Test de hipótesis.
# Para los test de normalidad, usaremos la library "nortest".
install.packages("nortest")
library(nortest)
# Primero usaremos la función de lillie.test que nos ayuda con la realización de una prueba de normalidad de 
# Pruena de Lilliefors (Kolmogorov-Smirnov), que es especialmente útil para muestras grandes (n mayor a 50):
# Para muestras pequeñas es recomendable utilizar la prueba de Shapiro-Wilk (shapiro.test), que opera de la misma manera 
# y no requiere librería alguna (viene en el paquete básico de r-studio)
lillie.test(ing_trabajo)
# Esto lo podremos comprobar visualmente, al generar el histograma respectivo...
hist(ing_trabajo)
# Lógicamente vemos el de motivo de no encontrar normalidad, sin embargo... en general las medias de ingresos 
# son utilizadas para casos como el visto.