first_stage <- lm(educ ~ exper + expersq + motheduc + fatheduc, data = d)
coeftest(first_stage, vcov = vcovHC(first_stage, type = "HC1"))
t test of coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 9.1026401 0.4241444 21.4612 < 0.00000000000000022 ***
exper 0.0452254 0.0419107 1.0791 0.2812
expersq -0.0010091 0.0013233 -0.7626 0.4461
motheduc 0.1575970 0.0354502 4.4456 0.00001121343 ***
fatheduc 0.1895484 0.0324419 5.8427 0.00000001026 ***
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1