Especificar e hipotetizar
En el Capítulo 3, realizaste una prueba de proporción de dos muestras sobre la proporción de envíos retrasados en los grupos de gastos de transporte. Recuerda las hipótesis.
\(H_{0}\): \(late_{\text{expensive}} - late_{\text{reasonable}} = 0\)
\(H_{A}\): \(late_{\text{expensive}} - late_{\text{reasonable}} > 0\)
Comparemos ese enfoque tradicional que utiliza prop_test() con una tubería de inferencia basada en la simulación.
late_shipments está disponible; dplyr y infer están cargados.
Este ejercicio forma parte del curso
Pruebas de hipótesis en R
Ejercicio interactivo práctico
Pruebe este ejercicio completando este código de muestra.
# Perform a proportion test appropriate to the hypotheses
test_results <- late_shipments %>%
prop_test(
late ~ freight_cost_group,
order = c("expensive", "reasonable"),
success = "Yes",
alternative = "greater",
correct = FALSE
)
# See the results
test_results