옥스포드 행복 설문지 실험결과를 분석한다. 이 실험에는 두 가지 목적이
있다. 첫째는 있는 그대로 옥스포드 행복 설문지로 측정하는 여러분의 행복
수준은 어느 정도인지, 둘째는 영문판으로 응답할 때와 국문판으로 응답할 때
어떤 차이가 있는지, 특히 응답에 소요되는 시간을 측정해 보았다. 여러분이
직접 손으로 계산한 값과 컴퓨터로 계산한 값의 차이도 살펴본다.
Data
행복 점수 비교
국문 설문지와 영문 설문지의 행복점수를 비교한다. 행복점수 단계별로
비교했을 때는 국문과 영문 설문지의 차이는 얼핏 보았을 때나 카이제곱
테스트로 검증하였을 때나 유의한 차이를 발견할 수 없는 데 평균 점수에
대해서 t-test를 수행한 결과는 통계적으로 유의하다고 나온다.
summary()
국문:
2.931 |
3.966 |
4.241 |
4.279 |
4.655 |
5.586 |
22 |
영문:
2.759 |
3.845 |
4.172 |
4.137 |
4.483 |
5.207 |
14 |
table()
국문 |
0 |
1 |
16 |
39 |
5 |
22 |
83 |
영문 |
0 |
1 |
21 |
43 |
2 |
14 |
81 |
계 |
0 |
2 |
37 |
82 |
7 |
36 |
164 |
Pearson’s Chi-squared test with simulated p-value (based on
2000 replicates): .
1.879 |
NA |
0.6947 |
0.0 |
1.6 |
28.9 |
64.1 |
5.5 |
100.0 |
geom_boxplot()

t.test()
on means
Welch Two Sample t-test: Scores
by
Group
1.459 |
117.6 |
0.1471 |
two.sided |
4.279 |
4.137 |
소요시간 비교
초 단위로 측정한 소요시간에서는 예상한 바와 같이 상당한 차이가
관찰된다. 평균, 중위수에서도 차이가 뚜렷할 뿐 아니라
boxplot()
과 t-test에서 매우 큰 차이를 보인다. 평균적으로
133.4초, 즉 2분 13초정도 국문 질문지에 더 빨리 응답한다. 중위소요시간을
비교해 봐도 138 초, 약 2분 18초 만큼 국문 질문지에 더 빨리 응답한다.
summary()
국문:
54 |
240 |
319 |
342.3 |
455 |
600 |
24 |
영문:
229 |
343 |
457 |
475.7 |
600 |
900 |
18 |
geom_boxplot()

t.test()
on means
Welch Two Sample t-test: Duration
by
Group
-4.711 |
118.3 |
6.786e-06 * * * |
two.sided |
342.3 |
475.7 |
Difference
손으로 집계한 값과 컴퓨터로 집계한 값들을 산점도로 비교해 본다.
plot()
## Registering fonts with R

geom_point()

summary()
국문:
-0.692 |
-0.021 |
-0.003 |
0.01436 |
0.004 |
2.884 |
22 |
영문:
-2.024 |
-0.1315 |
0.05 |
0.03419 |
0.2145 |
6.129 |
19 |
geom_boxplot()

평균과 표준편차
국문 질문지를 사용한 경우 컴퓨터로 집계한 것과 손으로 집계한 것의
차이의 평균은 0.014점, 표준편차는 0.406 점, 표본의 크기는 \(75 + 1 = 76\)이므로 \(표준오차 = 표준편차/\sqrt{표본의 크기}\)
로부터 모집단의 평균은 대략 0.014 \(\pm\) 0.047 점 정도될 것으로 추측할 수
있다. 영문 질문지를 사용한 경우 표본의 평균은 0.034점, 표준편차는 0.962
점, 표본의 크기는 \(73 + 1 = 74\)이므로
모집단의 평균은 대략 0.034 \(\pm\)
0.112 점 정도될 것으로 추측할 수 있다. 즉, 국문 질문지의 경우 컴퓨터로
집계하는 것보다 손으로 집계할 경우 0.08 점 정도 낮게 나올 수 있고, 영문
질문지를 사용할 경우 평균적으로 차이가 나지 않지만 편차는 국문
질문지보다 두 배 정도 크다는 것을 알 수 있다.
t.test()
국문:
One Sample t-test: X[[i]]
0.2763 |
60 |
0.7833 |
two.sided |
0.01436 |
영문:
One Sample t-test: X[[i]]
0.28 |
61 |
0.7804 |
two.sided |
0.03419 |