দেওয়া উত্তরগুলি আমাকে এখানে কী চলছে সে সম্পর্কে কিছু ধারণা দেয়। আমি বিশ্বাস করি দুর্ঘটনার কারণে কিছু ভুল হয়েছে। নীচের গল্পটি বোধগম্য হয়েছে কিনা তা দেখুন: শুরু করার জন্য, আমি মনে করি ডেটাতে এক্স এবং ওয়াইয়ের মধ্যে সম্ভবত একটি দৃ relationship় সম্পর্ক রয়েছে (এখানে কিছু কোড এবং একটি প্লট রয়েছে):
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")
তবে ভুল করে ওয়াইয়ের ঠিক আগে থেকেই ভবিষ্যদ্বাণী করা হয়েছিল। এটিকে জটিল করে, কেবলমাত্র মডেলের অবশিষ্টাংশগুলি এক্স এর বিরুদ্ধে ষড়যন্ত্র করা হয়েছিল, যদিও যা উদ্দেশ্য ছিল তা লাগানো মানগুলির (কোড এবং প্লট) বিরুদ্ধে প্লট করা হয়েছিল:
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))
এটি শুরু করার সময় আমি যে ধরণের গোফ-আপগুলি তৈরি করেছি তার মতো মনে হচ্ছে।