スチューデント化誤差

stdres<-rstudent(lm1)
plot(stdres)
abline(h=c(-2,2))
（注意）前画像の上に上書きをするため、前画像の散布図は消去しないこと
y<-sqrt(abs(stdres))
plot(y)
y[y<0.177|y>1.497]
plot.lm(lm1,which=3)