# 계량경제학 강의 R 코드

# 제9장 다중효과 추정량의 성질

# 9.2 변수를 누락시키면 어떻게 될까

# 예제 9.2 학력, 경력, 임금

data(Wages,package="Ecdat")
nrow(Wages)
Wages77 <- Wages[1:4165%%7==2,]
nrow(Wages77)
names(Wages77)

lm(lwage~ed+exp,data=Wages77)

lm(lwage~ed,data=Wages77)

lm(exp~ed,data=Wages77)

0.06296-0.8583*0.01011

# 예제 9.3 주택가격

data(Housing,package="Ecdat")
# Regression A
lm(log(price)~log(lotsize)+bedrooms,data=Housing) 

# Regression B
lm(log(price)~bedrooms,data=Housing)

# Regression C
lm(log(lotsize)~bedrooms,data=Housing)