specify と hypothesize の指定
第3章では、運賃コストのグループ間で遅延出荷の割合に対して2標本比率検定を実行しました。仮説を思い出しましょう。
\(H_{0}\): \(late_{\text{expensive}} - late_{\text{reasonable}} = 0\)
\(H_{A}\): \(late_{\text{expensive}} - late_{\text{reasonable}} > 0\)
今回は、従来の prop_test() を使うアプローチと、シミュレーションに基づく infer のパイプラインを比較します。
late_shipments が利用可能で、dplyr と infer は読み込まれています。
この演習はコースの一部です
Rによる仮説検定
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
# 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