MU_MEDIA= 75
SIGMA_SD=5
n=40

A.) Media muestral sea menor que 74

X_A_VALOR_ESPERADO= 74
NU_GRADOS_DE_LIBERTAD=39
Z_A_ESTANDARIZACION_DE_A=((X_A_VALOR_ESPERADO-MU_MEDIA)/(SIGMA_SD/sqrt(n)))
Z_A_ESTANDARIZACION_DE_A
## [1] -1.264911
SIGMA_ESTANDARIZADA=(SIGMA_SD/sqrt(n))
SIGMA_ESTANDARIZADA
## [1] 0.7905694
pnorm(X_A_VALOR_ESPERADO,MU_MEDIA,SIGMA_ESTANDARIZADA)
## [1] 0.1029516

B.) Media muestral se encuentre entre 74 y 76

X_B1=74

Z_B1_ESTANDARIZACION_DE_B=((X_B1-MU_MEDIA)/(SIGMA_SD/sqrt(n)))
Z_B1_ESTANDARIZACION_DE_B
## [1] -1.264911
X_B2=76

Z_B2_ESTANDARIZACION_DE_B=((X_B2-MU_MEDIA)/(SIGMA_SD/sqrt(n)))
Z_B2_ESTANDARIZACION_DE_B
## [1] 1.264911
pnorm(X_B2,MU_MEDIA,SIGMA_ESTANDARIZADA)-pnorm(X_B1,MU_MEDIA,SIGMA_ESTANDARIZADA)
## [1] 0.7940968

C.) Media muestra se encuentre entre 76 y 77

X_C1= 77

pnorm(X_B2,MU_MEDIA,SIGMA_ESTANDARIZADA)-pnorm(X_C1,MU_MEDIA,SIGMA_ESTANDARIZADA)
## [1] -0.09724559

D.) Media muestral sea mayor que 77

Z_C1_ESTANDARIZACION_DE_C=((X_C1-MU_MEDIA)/(SIGMA_SD/sqrt(n)))
Z_C1_ESTANDARIZACION_DE_C
## [1] 2.529822
1-pnorm(X_C1,MU_MEDIA,SIGMA_ESTANDARIZADA)
## [1] 0.005706018

E.) En caso de desconocer la desviación estándar poblacional y asumiento una muestral de 3.5. Responder nuevamente el punto A

X_E1=74
S=3.5

T1= ((X_E1-MU_MEDIA)/(S/sqrt(n)))
T1
## [1] -1.807016
dt(T1,NU_GRADOS_DE_LIBERTAD)
## [1] 0.07938495