[R Studio][12.4.4][DS12.2.1] R에서 파일로부터 데이터를 읽고 95% 신뢰구간 구하기

 

 < 문제 출처 >

이공학도를 위한 확률과 통계 3판 한글판

 

 

 

 

ds12.2.1-oil-well-drilling-costs.txt

0.00MB

 

 

 

 [ 문제 ]

 

DS12.2.1 의 데이터를 이용하여 석유 유정의 깊이가 9,500 피트일 경우 기대비용의 95% 양측 신뢰구간을 구하라.

 

 

 

 

 

 [ 풀이 ]

 

> raw_datas <- read.table("ds12.2.1-oil-well-drilling-costs.txt", header=T)
> lm1 <- lm(Cost~Depth, data=raw_datas)
> summary(lm1)

Call:
lm(formula = Cost ~ Depth, data = raw_datas)

Residuals:
     Min       1Q   Median       3Q      Max 
-1147.24  -604.64   -30.61   397.00  2132.17 

Coefficients:
              Estimate Std. Error t value Pr(>|t|)    
(Intercept) -2.277e+03  7.655e+02  -2.975     0.01 *  
Depth        1.003e+00  8.532e-02  11.760 1.21e-08 ***
---
Signif. codes:  
0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 879.9 on 14 degrees of freedom
Multiple R-squared:  0.9081,	Adjusted R-squared:  0.9015 
F-statistic: 138.3 on 1 and 14 DF,  p-value: 1.212e-08

> predict(lm1, newdata=data.frame(Depth=9500), interval="confidence")
       fit     lwr      upr
1 7254.651 6754.55 7754.752

 

 

 

석유 유정의 깊이가 9500 피트일 경우 기대비용의 95% 양층 신뢰구간 = (6754, 7755)