Foro Formativo No 1

Descargar como pdf o txt
Descargar como pdf o txt
Está en la página 1de 1

FORO FORMATIVO No 1

Una empresa de transportes desconfía de la afirmación de que la vida útil promedio de ciertos
neumáticos es al menos de 28000. Para verificar se colocan 40 neumáticos en camiones y se
obtiene una vida útil promedio de 27463 con una s=1348. ¿Qué se puede concluir con ese
dato si la probabilidad de Error Tipo I es a lo sumo 0.01?.

HIPÓTESIS

H0: P ≤ 28000 (F)


H1: p > 28000 (vida útil promedio de los neumáticos) (v)

PRUEBA ESTADISTICA
> data<-c(rep(27463-1348,20),rep(27463+1348,20))
> data
[1] 26115 26115 26115 26115 26115 26115 26115 26115 26115 26115 26115 26115
[13] 26115 26115 26115 26115 26115 26115 26115 26115 28811 28811 28811 28811
[25] 28811 28811 28811 28811 28811 28811 28811 28811 28811 28811 28811 28811
[37] 28811 28811 28811 28811
> mean(data)
[1] 27463
> t.test(data,num=27463,sigma.x=40,alternative="greater")

One Sample t-test

data: data
t = 127.23, df = 39, p-value < 2.2e-16
alternative hypothesis: true mean is greater than 0
95 percent confidence interval:
27099.32 Inf
sample estimates:
mean of x
27463

DECISIÓN
como el p valor 2.2xe-16 es menor al nivel de significación 0.01, hay evidencia estadística
para rechazar la hipótesis nula.

CONCLUSIÓN
La empresa de transportes hace bien en desconfiar de la afirmación de que la vida útil
promedio de los neumáticos es al menos de 28000.

También podría gustarte