# 계량경제학 강의 R 코드

# 제7장 표본크기가 클 때

# 7.1 일관성(일치성)의 의미

1/2^100
2^100

2^100/5e9/365/24/3600

2^100/5e9/365/24/3600/13.8e9

sum(dbinom(45:55,100,.5))

pbinom(55,100,.5)-pbinom(44.5,100,.5)

sum(dbinom(90:110,200,.5))

sum(dbinom(450:550,1000,.5))

# 7.2 최소제곱 추정량의 일관성

n <- 1000000
set.seed(13579)
## First sample
x <- rnorm(n)
u <- rnorm(n)
y <- 1+0.7*x+u
lm(y~x)$coef
## Second sample
u <- rnorm(n)
y <- 1+0.7*x+u
lm(y~x)$coef