[기초] 12. [R] 점추정과 구간추정

## 작성일: 2017.10.01

## 작성자: 춤추는 초코칩

## 참고문헌: R 실습으로 배우는 통계적 방법(2016, 박진표)

## 5장 표본을 이용한 모수 추론

## 5.3 점추정과 구간추정

모평균의 점추정량은 표본평균을 사용

점추정은 추정량이 모수를 어느 정도 정확하게 추정했는지에 대한 정보는 알 수 없다

구간추정은 점추정량에 대한 정확도를 포함한 추정방법

# 신뢰구간 함수 만들기

fi <- function(n,Mean,Sd){

  x <- rnorm(n,Mean,Sd)

  l <- round(mean(x)-1.96*sd(x)/sqrt(length(x)),digits=2)

  u <- round(mean(x)+1.96*sd(x)/sqrt(length(x)),digits=2)

  intt <- c(l,u)

  intt

}

# 정규분포에서 평균이 10, 분산이 100, 크기가 20인 랜덤표본 100개의 신뢰구간 구하기

n <- 20

Mean <- 10

Sd <- 10

set.seed(2345)

inter <- replicate(100,fi(n,Mean,Sd))

rownames(inter) <- c("Lower","Upper")

inter[,1:10]

# 모평균 포함여부 확인하기

ifelse((inter["Lower",]<10 & inter["Upper",]>10), "T", "F")

100개의 신뢰구간 중 4개의 신뢰구간은 모평균을 포함하지 않는다

약 95% 정도의 신뢰구간은 모평균을 포함하고 있다