적합도 검정 수행하기
vendor_inco_term의 막대 그래프를 보면 네 가지 범주에 걸친 분포가 가설 분포와 상당히 비슷해 보였어요. 차이가 통계적으로 유의미한지 확인하려면 카이제곱 적합도 검정을 수행해야 합니다.
어느 가설을 선택할지 결정하기 위해 유의수준을 0.1로 설정하겠습니다.
late_shipments가 준비되어 있으며, tibble, dplyr, ggplot2, infer가 로드되어 있어요.
이 연습은 강의의 일부입니다
R로 하는 가설 검정
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
hypothesized_props <- c(
EXW = 0.75, CIP = 0.05, DDP = 0.1, FCA = 0.1
)
# Run chi-square goodness of fit test on vendor_inco_term
test_results <- ___
# See the results
test_results