第4章: 重回帰分析:推論

Jeffrey Wooldridge (2016).
Introductory Econometrics: A Modern Approach
Seventh Edition. Cengage Learning.

2026-03-15

準備

必要なパッケージの読み込み

library(wooldridge)

4-1 古典的線形回帰モデルの仮定

誤差項の正規性の仮定 (MLR.6)

仮定 MLR.6 (正規性) 誤差項 \(u\) は、説明変数 \(x_1, x_2, \dots, x_k\) とは独立であり、平均0、分散 \(\sigma^2\) の正規分布に従う。

\[ u \sim \text{Normal}(0, \sigma^2) \]

\[ \hat{\beta}_j \sim \text{Normal}(\beta_j, \text{Var}(\hat{\beta}_j)) \]

4-2 t検定:単一の母集団パラメータに関する検定

t統計量(1)

\[ \frac{\hat{\beta}_j - \beta_j}{\text{sd}(\hat{\beta}_j)} \sim \text{Normal}(0, 1) \]

t統計量(2)

\[ t = \frac{\hat{\beta}_j - \beta_j}{\text{se}(\hat{\beta}_j)} \sim t_{n-k-1} \]

帰無仮説と対立仮説

\[ H_0: \beta_j = 0 \]

\[ H_1: \beta_j \neq 0 \]

\[ t_{\hat{\beta}_j} = \frac{\hat{\beta}_j}{\text{se}(\hat{\beta}_j)} \]

Rによる実装例 (meap93)

# meap93 データセットを読み込む
data(meap93)
# 支出を対数変換してモデル化
model_meap <- lm(math10 ~ log(expend) + lnchprg,
                 data = meap93)

Rによるt検定の結果表示

# 結果の要約(t値を含む)
summary(model_meap)$coefficients
##                Estimate  Std. Error    t value     Pr(>|t|)
## (Intercept) -20.3608165 25.07287437 -0.8120655 4.172311e-01
## log(expend)   6.2296983  2.97263426  2.0956827 3.673061e-02
## lnchprg      -0.3045853  0.03535742 -8.6144670 1.587327e-16

t検定の結果解釈

4-3 p値と信頼区間

p値 (p-value)

信頼区間 (Confidence Interval)

\[ \hat{\beta}_j \pm c \cdot \text{se}(\hat{\beta}_j) \]

Rによる信頼区間の計算例

# 95%信頼区間の計算
confint(model_meap)
##                   2.5 %     97.5 %
## (Intercept) -69.6500430 28.9284100
## log(expend)   0.3859788 12.0734177
## lnchprg      -0.3740923 -0.2350783

4-4 F検定:複数の線形制約の検定

複数の仮説の同時検定

\[ H_0: \beta_{\text{batavg}} = 0, \beta_{\text{hruns}} = 0, \beta_{\text{rbis}} = 0 \]

F統計量

\[ F = \frac{(\text{SSR}_r - \text{SSR}_{ur}) / q}{\text{SSR}_{ur} / (n - k - 1)} \]

RによるF検定の実装例 (mlb1)

# mlb1 データセットを読み込む
data(mlb1)
# 制約なしモデル
model_ur <- lm(log(salary) ~ years + gamesyr + bavg + 
               hrunsyr + rbisyr, data = mlb1)
# 制約付きモデル (成績変数をすべて除外)
model_r <- lm(log(salary) ~ years + gamesyr, data = mlb1)

anova関数による比較

# F検定の実行
anova(model_r, model_ur)
## Analysis of Variance Table
## 
## Model 1: log(salary) ~ years + gamesyr
## Model 2: log(salary) ~ years + gamesyr + bavg + hrunsyr + rbisyr
##   Res.Df    RSS Df Sum of Sq      F    Pr(>F)    
## 1    350 198.31                                  
## 2    347 183.19  3    15.125 9.5503 4.474e-06 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

モデル全体の有意性検定

\[ H_0: \beta_1 = \beta_2 = \dots = \beta_k = 0 \]

まとめ

まとめ