# 계량경제학 강의 R 코드

# 제14장 확률적인 설명변수

# 14.5 설명변수 내생성의 해결책 1: 대리변수

# 예제 14.1 임금방정식에서 IQ의 통제

library(foreign)
datadir <- 'http://econ.korea.ac.kr/~chirokhan/book/data'
Wage2 <- read.dta(file.path(datadir,'wage2.dta'))
names(Wage2)
nrow(Wage2)
library(lmtest)
model <- lwage~educ+exper+tenure+married+south+urban+black
ols0 <- lm(model,data=Wage2)
coeftest(ols0)
ols1 <- lm(update(model,.~.+IQ),data=Wage2)
coeftest(ols1)