위키
포럼
도구
바뀐글
랜덤

"R 카이제곱검정"의 두 판 사이의 차이

 
(같은 사용자의 중간 판 하나는 보이지 않습니다)
8번째 줄: 8번째 줄:
dimnames(t) <- list(gender = c("F", "M"), party = c("Democrat","Independent", "Republican"))
dimnames(t) <- list(gender = c("F", "M"), party = c("Democrat","Independent", "Republican"))
t # crosstab
t # crosstab
chisq.test(t) # χ²=30.07, p=.000002954
chisq.test(t) # χ²=30.07, p=0.000002954
</syntaxhighlight>
</syntaxhighlight>


16번째 줄: 16번째 줄:
dimnames(t) <- list(Response=c(1,2,3,4), Grade=c(1,2,3,4))
dimnames(t) <- list(Response=c(1,2,3,4), Grade=c(1,2,3,4))
t # crosstab
t # crosstab
chisq.test(t) # χ²=5.2265, p=.8141
chisq.test(t) # χ²=5.2265, p=0.8141
</syntaxhighlight>
</syntaxhighlight>


37번째 줄: 37번째 줄:
tbl = table(df)
tbl = table(df)
tbl # crosstab
tbl # crosstab
chisq.test(tbl) # p=0.5186
chisq.test(tbl) # χ²=0.41667, p=0.5186
</syntaxhighlight>
</syntaxhighlight>


2020년 12월 6일 (일) 02:57 기준 최신판

1 개요[ | ]

R chisq.test()

2 분할표 입력[ | ]

2.1 예시: 성별 × 지지정당[ | ]

t <- as.table(rbind(c(762, 327, 468), c(484, 239, 477)))
dimnames(t) <- list(gender = c("F", "M"), party = c("Democrat","Independent", "Republican"))
t # crosstab
chisq.test(t) # χ²=30.07, p=0.000002954

2.2 예시: 응답 × 학년[ | ]

t <- as.table(rbind(c(5,8,6,4),c(10,7,8,6),c(5,4,7,8),c(5,6,4,7)))
dimnames(t) <- list(Response=c(1,2,3,4), Grade=c(1,2,3,4))
t # crosstab
chisq.test(t) # χ²=5.2265, p=0.8141

3 원자료 입력[ | ]

3.1 예시: 성별 × 찬성여부[ | ]

df <- read.table( header=TRUE, stringsAsFactors=FALSE, text="
Gender Agree
Male   True
Male   False
Male   False
Male   False
Male   False
Female True
Female True
Female True
Female False
Female False
")
tbl = table(df)
tbl # crosstab
chisq.test(tbl) # χ²=0.41667, p=0.5186

4 같이 보기[ | ]

5 참고[ | ]

원본 주소 "https://zetawiki.com/w/index.php?title=R_카이제곱검정&oldid=615020"
문서 댓글 ({{ doc_comments.length }})
{{ comment.name }} {{ comment.created | snstime }}