Verilen cevaplar bana burada neler olduğu hakkında bazı fikirler veriyor. Kazayla yapılan bazı hatalar olabileceğine inanıyorum. Aşağıdaki hikayenin mantıklı olup olmadığına bakın: Başlamak için, verilerde X & Y arasında güçlü bir ilişki olduğunu düşünüyorum (burada bazı kodlar ve bir çizim):
set.seed(5)
wage <- rlnorm(1000, meanlog=2.3, sdlog=.5)
something_else <- .7*wage + rnorm(1000, mean=0, sd=1)
plot(wage, something_else, pch=3, col="red", main="Plot X vs. Y")

Ancak yanlışlıkla Y sadece ortalamadan tahmin edildi. Bunu birleştirerek, ortalama tek modelin kalıntıları, amaçlanan değerlere (kod ve çizim) karşı koymak olsa bile X'e karşı çizilir:
meanModel <- lm(something_else~1)
windows()
plot(wage, meanModel$residuals, pch=3, col="red",
main="Plot of residuals from Mean only Model against X")
abline(h=0, lty="dotted")

Bunu uygun modeli takarak ve kalıntıları bundan ayırarak düzeltebiliriz (kod ve çizim):
appropriateModel <- lm(something_else~wage)
windows()
plot(appropriateModel$fitted.values, appropriateModel$residuals, pch=3, col="red",
main="Plot of residuals from the appropriate\nmodel against fitted values")
lines(lowess(appropriateModel$residuals~appropriateModel$fitted.values))

Bu sadece başladığımda yaptığım goof-up'lara benziyor.