#title 표본크기
[[TableOfContents]]

==== 평균 추정 ====
아래와 같은 조건을 만족하려면 표본 크기는 얼마? --> 11건
 * |표본평균 - 모평균| <= 30
 * 모표준편차 = 50
 * 신뢰구간 = 0.95
 
{{{
d <- 30 #오차한계(표본평균과 모평균과의 차이)
sigma <- 50 #모표준편차
conf_lv <- 0.95 #신뢰구간
n <-ceiling((qnorm(1 - (1-conf_lv)/2) * sigma / d)^2)
n #11
}}}


==== 비율 추정 ====
아래와 같은 조건을 만족하려면 표본 크기는 얼마? --> 11건
 * |표본비율 - 모비율| <= 0.05 (5%)
 * 이미 알고 있는 비율 = 0.45 (예를 들어, 성인 남자의 흡연율은 45%)
 * 신뢰구간 = 0.95

{{{
d <- 0.05 #오차한계(표본평균과 모평균과의 차이)
conf_lv <- 0.95 #신뢰구간
p <- 0.45 #모르면 0.5
n <-ceiling((p*(1-p))*((qnorm(1 - (1-conf_lv)/2) / d)^2))
n #381
}}}