====== 퀴즈 1 문제 중 ======
모집단 Mean = 180; SD = 20, 정규분포일때

49. N=16의 샘플을 추출할 때 샘플들의 평균 분포가 갖는 표준편차 값은?
standard error 값을 묻는 질문이므로
se = sigma / sqrt(n) = 20 / 4 = 5

50. n=400일 때 샘플평균들의 분포가 갖는 표준편차 값은?
1

51. n=100 의 크기의 샘플을 취한다고 할 때 이 샘플의 평균값이 나올 구간을 99퍼센트의 확신성을 가지고 구하시오.
52. 위와합산
se값이 2이고 99퍼센트의 구간은 se값을 위로 3 밑은 3 포함하는 구간이 되므로 180-6, 180+6 이 정답


위의 문제는 모두 샘플평균들을 모아 놓은 집합의 평균과 표준편차를 (표준오차) 구하는 문제이다. 
즉, 무 = 180, 시그마 = 20 일 때, 

샘플평균들의 표준편차는 아래처럼 각각 5, 1, 2가 된다. 
<code>
> rm(list=ls())
> rnorm2 <- function(n,mean,sd){ 
+   mean+sd*scale(rnorm(n)) 
+ }
> ss <- function(x) {
+   sum((x-mean(x))^2)
+ }
> 
> mu = 180
> sigma = 20
> var = 400
> 
> n.a <- 16
> n.b <- 400
> n.c <- 100
> 
> se.a <- sigma/sqrt(n.a)
> se.b <- sigma/sqrt(n.b)
> se.c <- sigma/sqrt(n.c)
> se.a
[1] 5
> se.b
[1] 1
> se.c
[1] 2
</code>