· 기울기의 신뢰구간 x = c(5, 2, 4, 7, 1, 8, 2, 5, 7, 1) # 고장 제품의 수 y = c(78, 31, 62, 110, 15, 125, 25, 66, 98, 12) # 수리 시간 reg = lm(y ~ x) summary(reg) # yhat = -2.614 + 15.432 * x yhat = -2.614 + 15.432 * x n = length(x) residuals(reg) # 잔차 b1 = 15.432 t = abs(qt(0.05, n-2)) sse = deviance(reg) sse # 95%에서의 신뢰구간 up = b1 + t * sqrt(sse/n-2) # 23.54001 low = b1 - t * sqrt(sse/n-2) # 7.323994
