第2章: 単回帰モデル

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

2026-01-23

準備

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

library(wooldridge)

2-1 単回帰モデルの定義

単回帰モデル

\[ y = \beta_0 + \beta_1 x + u \]

誤差項 \(u\) について

ゼロ条件付き平均の仮定

\[ E(u|x) = 0 \]

\[ E(y|x) = \beta_0 + \beta_1 x \]

2-2 通常最小二乗法(OLS)の導出

OLS推定量

\[ \hat{u}_i = y_i - \hat{\beta}_0 - \hat{\beta}_1 x_i \]

\[ \min_{\hat{\beta}_0, \hat{\beta}_1} \sum_{i=1}^n (y_i - \hat{\beta}_0 - \hat{\beta}_1 x_i)^2 \]

OLS推定量の公式

\[ \hat{\beta}_1 = \frac{\sum_{i=1}^n (x_i - \bar{x})(y_i - \bar{y})}{\sum_{i=1}^n (x_i - \bar{x})^2} = \frac{\text{Cov}(x, y)}{\text{Var}(x)} \]

\[ \hat{\beta}_0 = \bar{y} - \hat{\beta}_1 \bar{x} \]

2-3 Rによる単回帰分析の実装

例: CEOの給与と自己資本利益率 (ceosal1)

\[ salary = \beta_0 + \beta_1 roe + u \]

データの確認

# データの読み込みと確認
data(ceosal1)
head(ceosal1[, c("salary", "roe")])
##   salary  roe
## 1   1095 14.1
## 2   1001 10.9
## 3   1122 23.5
## 4    578  5.9
## 5   1368 13.8
## 6   1145 20.0

回帰分析の実行 (lm関数)

# 単回帰分析の実行
model_ceo <- lm(salary ~ roe, data = ceosal1)

# 結果の要約を表示
summary(model_ceo)
## 
## Call:
## lm(formula = salary ~ roe, data = ceosal1)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -1160.2  -526.0  -254.0   138.8 13499.9 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)   963.19     213.24   4.517 1.05e-05 ***
## roe            18.50      11.12   1.663   0.0978 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1367 on 207 degrees of freedom
## Multiple R-squared:  0.01319,    Adjusted R-squared:  0.008421 
## F-statistic: 2.767 on 1 and 207 DF,  p-value: 0.09777

結果の解釈

\[ \widehat{salary} = 963.19 + 18.50 \cdot roe \]

散布図と回帰直線のプロット

plot(ceosal1$roe, ceosal1$salary, 
     xlab = "Return on Equity (roe)", 
     ylab = "CEO Salary (salary)",
     main = "CEO Salary vs ROE")
abline(model_ceo, col = "blue", lwd = 2)

2-4 適合度と決定係数

決定係数 (\(R^2\))

\[ R^2 = \frac{\text{SSE}}{\text{SST}} = 1 - \frac{\text{SSR}}{\text{SST}} \]

ceosal1\(R^2\)

2-5 関数形:対数を用いたモデル

対数モデルの利点

モデル 方程式 解釈
Level-level \(y = \beta_0 + \beta_1 x\) \(\Delta y = \beta_1 \Delta x\)
Log-level \(\log(y) = \beta_0 + \beta_1 x\) \(\% \Delta y \approx (100 \beta_1) \Delta x\)
Level-log \(y = \beta_0 + \beta_1 \log(x)\) \(\Delta y \approx (\beta_1 / 100) \% \Delta x\)
Log-log \(\log(y) = \beta_0 + \beta_1 \log(x)\) \(\% \Delta y \approx \beta_1 \% \Delta x\) (弾力性)

例: 賃金方程式 (wage1)

\[ \log(wage) = \beta_0 + \beta_1 educ + u \]

data(wage1)
# 対数賃金の回帰分析
model_wage <- lm(log(wage) ~ educ, data = wage1)

summary(model_wage)$coefficients
##               Estimate  Std. Error  t value     Pr(>|t|)
## (Intercept) 0.58377267 0.097335834  5.99751 3.736702e-09
## educ        0.08274437 0.007566694 10.93534 3.270645e-25

結果の解釈(賃金方程式)

\[ \widehat{\log(wage)} = 0.584 + 0.083 \cdot educ \]

まとめ

まとめ