R 카이제곱검정

Jmnote (토론 | 기여)님의 2019년 8월 24일 (토) 16:20 판

1 개요

R chisq.test()
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
##       party
## gender Democrat Independent Republican
##      F      762         327        468
##      M      484         239        477

x <- chisq.test(t)
x
## 
## 	Pearson's Chi-squared test
## 
## data:  t
## X-squared = 30.07, df = 2, p-value = 2.954e-07
summary(x)
##           Length Class  Mode     
## statistic 1      -none- numeric  
## parameter 1      -none- numeric  
## p.value   1      -none- numeric  
## method    1      -none- character
## data.name 1      -none- character
## observed  6      table  numeric  
## expected  6      -none- numeric  
## residuals 6      table  numeric  
## stdres    6      table  numeric  
x$p.value
## [1] 2.953589e-07

x$observed
##       party
## gender Democrat Independent Republican
##      F      762         327        468
##      M      484         239        477
x$expected
##       party
## gender Democrat Independent Republican
##      F 703.6714    319.6453   533.6834
##      M 542.3286    246.3547   411.3166
x$residuals
##       party
## gender   Democrat Independent Republican
##      F  2.1988558   0.4113702 -2.8432397
##      M -2.5046695  -0.4685829  3.2386734
x$stdres
##       party
## gender   Democrat Independent Republican
##      F  4.5020535   0.6994517 -5.3159455
##      M -4.5020535  -0.6994517  5.3159455

2 같이 보기

3 참고

문서 댓글 ({{ doc_comments.length }})
{{ comment.name }} {{ comment.created | snstime }}