퀴즈 응답

Birthday Problem

생일이 같은 사람은 몇 명?

01월09일 01월16일 01월19일 02월08일 02월15일 03월10일 04월20일 05월08일 05월10일 05월11일 05월18일 06월16일 06월22일 08월04일 08월08일 09월02일 09월12일 09월13일 10월04일 10월10일 10월20일 10월30일 11월23일 12월10일 12월12일 계
2 2 2 2 2 3 2 2 3 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 52

생일이 같은 사람은 몇 명 정도 기대되는가?

생일 같은 날짜는 25일이다. \(N\)을 전체 인원이라 할 때, 기대 인원은 \(N\times\{1- (\frac{364}{365})^{N-1}\}\)로 계산된다. 무응답이거나 결석한 학생을 제외한 응답 인원 158명에 대하여 기대인원을 계산하면 55.3명이고, 표준오차는 7.4명이어서 관찰된 인원은 범위 안에 잘 들어간다.

태어난 달의 분포는?

  Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec 계
Red 5 6 5 5 8 8 5 8 9 9 3 4 75
Black 5 6 9 6 8 6 7 4 7 9 7 9 83
계 10 12 14 11 16 14 12 12 16 18 10 13 158

태어난 달의 분포는 고른가?

Chi-squared test for given probabilities with simulated p-value (based on 2000 replicates): birth_month.tbl.a[3, -13]
Test statistic df P value
5.291 NA 0.913

태어난 달의 분포는 Red, Black 이 닮았는가?

Pearson’s Chi-squared test with simulated p-value (based on 2000 replicates): birth_month.tbl.a[-3, -13]
Test statistic df P value
6.571 NA 0.8511

Matching Problem

정답갯수의 분포

  0 1 2 4 계
Red 10 20 13 33 76
Black 5 11 14 48 78
계 15 31 27 81 154

랜덤화 효과

Pearson’s Chi-squared test: table(quiz1115$group, matching.score)
Test statistic df P value
7.07 3 0.06971

매칭 모델 카이제곱 적합도 테스트

랜덤하게 골랐다면, 각각의 확률은 9/24, 8/24, 6/24, 1/24임. 응답인원 154명을 각 확률에 곱해서 기대돗수를 구해보면,

Expected Frequency
0 1 2 4
58 51 38 6
Chi-squared test for given probabilities: table(matching.score)
Test statistic df P value
910 3 5.863e-197 * * *

Framing Effects

인플레이션과 일자리 정책 패키지
Red

Black

실업률이 10%인 것과 취업률이 90%인 것이 동등함에도 불구하고, 실업률과 인플레가 나오면 실업률이 낮아지는 정책을 선호하고 취업률과 인플레가 나오면 인플레가 낮아지는 정책을 선호함에 유의.

Framing Effect
  실업률10%(취업률90%), 인플레12% 실업률5%(취업률95%), 인플레17% 결석
Red(실업률 관점) 35 42 13
Black(취업률 관점) 50 32 8
Pearson’s Chi-squared test with Yates’ continuity correction: tbl.q3[1:2, 1:2]
Test statistic df P value
3.246 1 0.07158
% 비교.
  실업률10%(취업률90%), 인플레12% 실업률5%(취업률95%), 인플레17% 계
Red(실업률 관점) 45.5 54.5 100
Black(취업률 관점) 61 39 100

화폐 착각

인플레이션과 임금인상
Red

Black

인플레 없이 7%를 삭감하는 것과 12% 인플레 상황에서 5%임금 인상은 동등한 조건인데도 ’임금인상’이라는 말에 ’수용가능하다’는 응답 비율이 늘어남에 유의.

화폐 착각
  수용가능 불공정 결석
Red(인플레0%, 임금삭감7%) 33 45 12
Black(인플레12%, 임금인상5%) 47 35 8
Pearson’s Chi-squared test with Yates’ continuity correction: tbl.q4[1:2, 1:2]
Test statistic df P value
3.027 1 0.08189
% 비교.
  수용가능 불공정 계
Red(인플레0%, 임금삭감7%) 42.3 57.7 100
Black(인플레12%, 임금인상5%) 57.3 42.7 100