모집단이 있다.
모집단의 분포가 어떤 모양이든지 상관없다.
샘플링을 하여 샘플의 평균을 내보자. 이짓을 겁나게 많이 반복하면 샘플들의 평균들이 나온다.
이 평균들의 분포는 정규분포다.

대략 이런 느낌..

x <- rnorm(10000, mean=100, sd=10)
x <- c(x, rnorm(10000, mean=70, sd=10))

mu <- c()
for(i in 1:1000){
  mu <- c(mu, mean(sample(x, 4)))
}

par(mfrow=c(1,2))
hist(x, main="모집단")
hist(mu, main="중심극한정리")
par(mfrow=c(1,1))