マクネマー検定     Last modified: Aug 25, 2015

例題

 「内閣の支持率調査で,同じ対象者に 1 月と 4 月の 2 回調査をした結果は表 1 のようになった。 この 3 ヵ月間に支持率に変化があったといえるかどうか検定しなさい。」

表 1.同じ対象者に行われた 2 回の内閣支持率調査結果
4 月
 支持する 支持しない   合計 
1 月支持する 48  28  76 
支持しない 35  53  88 
合計 83  81  164 


R による解析

> mcnemar.test(matrix(c(48, 28, 35, 53), 2, 2), correct=FALSE) # 連続性の補正をしない場合

	McNemar's Chi-squared test

data:  matrix(c(48, 28, 35, 53), 2, 2) 
McNemar's chi-squared = 0.7778, df = 1, p-value = 0.3778

> mcnemar.test(matrix(c(48, 28, 35, 53), 2, 2)) # 連続性の補正をする場合

	McNemar's Chi-squared test with continuity correction

data:  matrix(c(48, 28, 35, 53), 2, 2) 
McNemar's chi-squared = 0.5714, df = 1, p-value = 0.4497

> binom.test(c(35, 28)) # 二項検定による正確な有意確率

	Exact binomial test

data:  35 and 63 
number of successes = 35, number of trials = 63, p-value = 0.45
alternative hypothesis: true probability of success is not equal to 0.5 
95 percent confidence interval:
 0.4248876 0.6808269 
sample estimates:
probability of success 
             0.5555556 


・ 手法の解説ページ
・ 直前のページへ戻る  ・ E-mail to Shigenobu AOKI