यहां दिए गए उत्तर मुझे कुछ विचार दे रहे हैं कि यहां क्या हो रहा है। मुझे विश्वास है कि दुर्घटना से कुछ गलतियाँ हुई होंगी। देखें कि क्या निम्नलिखित कहानी समझ में आती है: शुरू करने के लिए, मुझे लगता है कि डेटा में X & Y के बीच एक मजबूत संबंध है (यहां कुछ कोड और एक प्लॉट):
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")
लेकिन गलती से वाई की भविष्यवाणी सिर्फ माध्य से की गई। इसकी तुलना करते हुए, केवल माडल से अवशिष्ट को X के विरुद्ध प्लॉट किया जाता है, भले ही इसका उद्देश्य क्या था जो कि फिटेड वैल्यू (कोड और प्लॉट) के विरुद्ध प्लॉट करना था:
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")
हम इसे उचित मॉडल के अनुसार ठीक कर सकते हैं और उस (कोड और प्लॉट) से अवशिष्टों की साजिश रच सकते हैं:
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))
ऐसा लगता है कि जब मैं शुरू कर रहा था तो मैंने केवल गॉफ-अप के प्रकार किए थे।