두 비율 검정
화물 운임이 배송이 지연되었는지 여부에 영향을 주는지 궁금할 수 있어요. late_shipments 데이터셋에서 배송 지연 여부는 late 열에 저장되어 있어요. 운임 비용은 freight_cost_group 열에 있으며, 범주는 "expensive"와 "reasonable"입니다.
이에 대해 가설을 세워 검정해 볼 수 있어요.
\(H_{0}\): \(late_{\text{expensive}} - late_{\text{reasonable}} = 0\)
\(H_{A}\): \(late_{\text{expensive}} - late_{\text{reasonable}} > 0\)
p_hats에는 "expensive"와 "reasonable" 그룹의 모비율 추정치(표본 비율)가 들어 있습니다. ns에는 해당 그룹들의 표본 크기가 들어 있습니다.
이 연습은 강의의 일부입니다
R로 하는 가설 검정
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# See the sample variables
print(p_hats)
print(ns)
# Calculate the pooled estimate of the population proportion
p_hat <- ___
# See the result
p_hat