2026-03-06
femalehighschool, university の2つを作成。female) と 既婚 (married)female * married という交差項を入れることで、結婚の効果が男女で異なるかどうかを検証できる。mroz)data(mroz)
# 既婚女性の労働供給 (inlf=1: 労働市場に参加)
res_lpm <- lm(inlf ~ nwifeinc + educ + exper + age + kidslt6, data=mroz)
summary(res_lpm)$coefficients[1:4, ]## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.769832596 0.135006985 5.702169 1.703869e-08
## nwifeinc -0.003258636 0.001455510 -2.238827 2.546088e-02
## educ 0.039128569 0.007363805 5.313635 1.419779e-07
## exper 0.022210504 0.002144369 10.357595 1.394203e-23
prog は参加した人に対して 1 をとるダミー変数。