[R] 카이제곱 검정

1. 데이터 불러오기

raw_chisq <- read.csv("htest05.csv", header = TRUE) 
rawTable <- table(raw_chisq) 
rawTable 

2. 카이제곱 검정

귀무가설: 흡연여부와 폐암유무는 연관성이 없다.
대립가설: 흡연여부와 폐암유무는 연관성이 있다.

 

correct = FALSE : 셀 기대도수 > 5 인 경우
correct = TRUE : 셀 기대도수 < 5 인 경우

chisq.test(rawTable, correct = FALSE)

 

→ p-value = 0.02686 이므로, 대립가설을 채택한다.