[R Studio][8.2.29][DS8.2.1] R에서 표본 평균, 표본 표준편차 구하여 t분포 기준 p-value 구하기

1. 활용 데이터 sample

 

ds8.2.1-toxicity-of-salmon-fillets.txt

0.00MB

출처 : 이공학도를 위한 확률과 통계 3판 8.2.29번 연습문제 - DS8.2.1

 

문제 : 연어 요리가 독성을 갖는데 걸리는 평균 시간이 11일 이상이라고 할 수 있는지 가설 검정을 수행해 검토하라.

 

 

 

 

 

2. 데이터 선언

 

> x <- c(11.2, 15.3, 9, 12.7, 11.4, 14.5, 10.6, 11.1)
> x
[1] 11.2 15.3  9.0 12.7 11.4 14.5 10.6 11.1

 

 

 

 

 

3. 표본 평균 구하기

 

> result.mean = mean(x)
> print(result.mean)
[1] 11.975

 

 

 

 

 

4. 표본 표준편차 s 구하기

 

> result.sd = sd(x)
> print(result.sd)
[1] 2.083781

 

 

 

 

 

5. t 분포 기준으로 p-value 구하기

 

> xbar = result.mean
> s = result.sd
> n = 8
> mu = 11
> t = (xbar-mu)/(s/sqrt(n))
> t
[1] 1.32342
> pvaluet = 1 - pt(t, n-1)
> pvaluet
[1] 0.1136407

문제 : 연어 요리가 독성을 갖는데 걸리는 평균 시간이 11일 이상이라고 할 수 있는지 가설 검정을 수행해 검토하라. 라는 문제에 따라 풀이시, 검정통계량 t가 양수이므로 pvaluet 를 1-pt(t,n-1) 으로 설정합니다.