5_empirical_C.R

#佐藤佑樹 23C2415
##########################
##第5章　実証分析問題5-C##
##########################

#実証分析問題5-C
#データの読み込み
abe5 <- read.table("5_3_abe.csv", header = TRUE, sep = ",")

#回帰分析
reg1 <- lm(abe ~ income, data = abe5)
summary(reg1)

## 
## Call:
## lm(formula = abe ~ income, data = abe5)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -43.437  -9.231   2.175   8.093  46.601 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 43.4371610  0.3277382 132.536  < 2e-16 ***
## income      -0.0030593  0.0009287  -3.294 0.000995 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 14.38 on 4274 degrees of freedom
## Multiple R-squared:  0.002533,   Adjusted R-squared:  0.002299 
## F-statistic: 10.85 on 1 and 4274 DF,  p-value: 0.0009945