(→개요) |
(→개요) |
||
| 4번째 줄: | 4번째 줄: | ||
<syntaxhighlight lang='r' run> | <syntaxhighlight lang='r' run> | ||
## Agresti (1990, p. 61f; 2002, p. 91) Fisher's Tea Drinker | ## Agresti (1990, p. 61f; 2002, p. 91) Fisher's Tea Drinker | ||
# 영국 여성은 우유와 차 중 어느 것을 먼저 컵에 | # 영국 여성은 우유와 차 중 어느 것을 먼저 컵에 부었는지 구별할 수 있다고 주장했다. | ||
# 테스트를 위해 그녀는 8컵의 차를 받는데, 그 중 4잔에는 | # 테스트를 위해 그녀는 8컵의 차를 받는데, 그 중 4잔에는 우유를 먼저 부었다. | ||
# 영가설은 실제 | # 영가설은 실제 부은 순서와 여성의 추측 사이에 연관성이 없다는 것이다. | ||
# 대립가설은 긍정적 연관성이 있다는 것이다 (승산비가 1보다 크다는 것). | # 대립가설은 긍정적 연관성이 있다는 것이다 (승산비가 1보다 크다는 것). | ||
TeaTasting <- | TeaTasting <- | ||
2020년 12월 4일 (금) 23:28 판
1 개요
- R 피셔의 정확검정
## Agresti (1990, p. 61f; 2002, p. 91) Fisher's Tea Drinker
# 영국 여성은 우유와 차 중 어느 것을 먼저 컵에 부었는지 구별할 수 있다고 주장했다.
# 테스트를 위해 그녀는 8컵의 차를 받는데, 그 중 4잔에는 우유를 먼저 부었다.
# 영가설은 실제 부은 순서와 여성의 추측 사이에 연관성이 없다는 것이다.
# 대립가설은 긍정적 연관성이 있다는 것이다 (승산비가 1보다 크다는 것).
TeaTasting <-
matrix(c(3, 1, 1, 3),
nrow = 2,
dimnames = list(Guess = c("Milk", "Tea"),
Truth = c("Milk", "Tea")))
fisher.test(TeaTasting, alternative = "greater") # p=0.2429
2 같이 보기
3 참고
로그인하시면 댓글을 쓸 수 있습니다.
{{ comment.name }}
{{ comment.created | snstime }}
-
{{comment.page_title}} ―{{comment.name}}