Pregunta de investigaión

En las actividades anteriores he utilizado las variables peso y rendimiento millas por galon para esta actividad busqué si habia un promedio general de peso, la IA menciona que no pero que el peso rondaba las 4000 libras. por lo que la pregunta para esta entrega son las siguientes:

¿El peso promedio de los autos analizados en la base “Autos” es diferente a 4000 libras? 


skim(Autos_Limpia$weight)
Data summary
Name Autos_Limpia$weight
Number of rows 74
Number of columns 1
_______________________
Column type frequency:
numeric 1
________________________
Group variables None

Variable type: numeric

skim_variable n_missing complete_rate mean sd p0 p25 p50 p75 p100 hist
data 0 1 3019.46 777.19 1760 2250 3190 3600 4840 ▇▅▇▅▂

DEFINE:

hipotesis nula H0: M≠4000 Hipótesis alterna Ha=4000 Nivel de significancia alpha=0.05 Tipo dee contraste=bilateral El estadístico de prueba esperado=prueba t para una muestra

Prueba T

# Especifica la media bajo la hipótesis nula (H0: Media = 4000)
media_hipotetizada <- 4000

# Realiza la prueba t de una muestra, bilateral
resultado_ttest_4000 <- t.test(
    x = Autos_Limpia$weight,
    mu = media_hipotetizada,
    alternative = "two.sided" # Esta es la opción por defecto, pero se explicita
)

# Imprime el resumen completo de los resultados
print(resultado_ttest_4000)
## 
##  One Sample t-test
## 
## data:  Autos_Limpia$weight
## t = -10.853, df = 73, p-value < 2.2e-16
## alternative hypothesis: true mean is not equal to 4000
## 95 percent confidence interval:
##  2839.398 3199.521
## sample estimates:
## mean of x 
##  3019.459
#2. Extraer el valor p
p_valor_exacto <- resultado_ttest_4000$p.value

# 3. Formatear el valor p para mostrarlo sin notación científica
# La función format.pval() automáticamente usa '<' si el valor es menor que el umbral 'eps'
p_valor_formateado <- format.pval(p_valor_exacto, digits = 3, eps = 0.001)

# Imprimir el resultado formateado
cat("El valor p formateado es:", p_valor_formateado, "\n")
## El valor p formateado es: <0.001

La media muestral de peso de la base “Autos” es de 3019.459 libras, el cual es estadísticamente diferente a 4000 libras (t = -10.853, df = 73, p-value < 2.2e-16) (como el valor p está en nota cientifica lo formatee a que tenga tres numeros despues del punto decimal <0.001 ), con un intervalo de confianza entre LI=2839.398 LS=3199.521. por lo que se rechaza la hipótesis nula