Menentukan spesifikasi dan hipotesis
Di Bab 3, Anda menjalankan uji proporsi dua sampel pada proporsi keterlambatan pengiriman di antara kelompok biaya pengiriman. Ingat kembali hipotesisnya.
\(H_{0}\): \(late_{\text{expensive}} - late_{\text{reasonable}} = 0\)
\(H_{A}\): \(late_{\text{expensive}} - late_{\text{reasonable}} > 0\)
Mari bandingkan pendekatan tradisional menggunakan prop_test() dengan pipeline infer berbasis simulasi.
late_shipments tersedia; dplyr dan infer sudah dimuat.
Latihan ini adalah bagian dari kursus
Pengujian Hipotesis di R
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
# 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