Edited at

【質問】回帰直線から2s.e.以上外れる値の特定方法

標本回帰直線から2s.e.以上外れる値の特定を行いたいです。

> d<-c(2,2,2,2,2.5,2.5,2.5,2.5,2.5,2.5,3,3,3,3,3,3,3,3.5,3.5,3.5,3.5,3.5,3.5,4,4,4,4,4,4,4,4.5,4.5,4.5,4.5,4.5,4.5,5,5,5,5,5,5,5.5,5.5,5.5,5.5,5.5,5.5,6,6,6,6,6,6.5,6.5,6.5,6.5,7)

> h<-c(2,2.5,2.5,3,2,2.5,3,3,3,3.5,2.5,3,3,3.5,3.5,4,4.5,3,3.5,4,4.5,5,5.5,3.5,4,4.5,4.5,5,5.5,5.5,4,4.5,5,5,5.5,5.5,6,4.5,5,5.5,6,6.5,5,5.5,5.5,6,6.5,7,5.5,5.5,6,6.5,7,5.5,6.5,7,7,7.5)

> result<-lm(h ~ d)
> summary(result)


Coefficients:

Estimate Std. Error t value Pr(>|t|)


(Intercept) 0.72617 0.28189 2.576 0.0127 *


d 0.93245 0.06322 14.748 <2e-16 ***


ここまでできており、グラフもかけております。

この後の手法をご教授いただきたいです。

よろしくお願いします。