1 평균 추정

2 비율 추정

• |표본평균 - 모평균| <= 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

• |표본비율 - 모비율| <= 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