প্রকরণের প্রাথমিক ধারণা দিয়ে শুরু করুন। আপনার শুরুর মডেলটি গড় থেকে স্কোয়ার বিচ্যুতির যোগফল। আর ^ 2 মানটি সেই পরিবর্তনের অনুপাত যা বিকল্প মডেল ব্যবহার করে গণ্য হয়। উদাহরণস্বরূপ, আর-স্কোয়ার্ড আপনাকে জানায় যে ওয়াইয়ের পার্থক্যের পরিমাণটি আপনি গড়ের পরিবর্তে রেগ্রেশন রেখা থেকে স্কোয়ারের দূরত্বগুলি যোগ করে ছাড়িয়ে নিতে পারেন।
আমি মনে করি যদি আমরা সাধারণ উদ্বেগের সমস্যাটি উদ্ঘাটিত করার বিষয়ে চিন্তা করি তবে এটি পুরোপুরি পরিষ্কার হয়ে গেছে। একটি সাধারণ স্ক্যাটারপ্ল্লট বিবেচনা করুন যেখানে অনুভূমিক অক্ষের সাথে আপনার ভবিষ্যদ্বাণী এক্স এবং উল্লম্ব অক্ষের সাথে একটি প্রতিক্রিয়া Y রয়েছে।
গড়টি হ'ল প্লটটির একটি অনুভূমিক রেখা যেখানে Y ধ্রুবক। Y এর মোট পার্থক্য হ'ল Y এর গড় এবং প্রতিটি পৃথক ডেটা পয়েন্টের মধ্যে স্কোয়ার পার্থক্যগুলির সমষ্টি। এটি গড় লাইন এবং প্রতিটি স্বতন্ত্র বিন্দু বর্গক্ষেত্র এবং যোগ করা মধ্যবর্তী দূরত্ব।
মডেল থেকে রিগ্রেশন লাইন পাওয়ার পরে আপনি পরিবর্তনশীলতার আরও একটি পরিমাপও গণনা করতে পারেন। এটি প্রতিটি ওয়াই পয়েন্ট এবং রিগ্রেশন লাইনের মধ্যে পার্থক্য। প্রতিটির পরিবর্তে (Y - গড়) বর্গক্ষেত্র আমরা পেয়েছি (Y - রেগ্রেশন লাইনের পয়েন্ট) বর্গক্ষেত্র।
যদি রিগ্রেশন লাইনটি অনুভূমিক ব্যতীত অন্য কিছু হয় তবে আমরা যখন এই পরিবর্তিত রেগ্রেশন লাইনটি গড়ের পরিবর্তে ব্যবহার করি তখন আমরা কম মোট দূরত্ব পেতে যাচ্ছি - এতে কম অব্যবহৃত পার্থক্য রয়েছে। অতিরিক্ত প্রকরণটি ব্যাখ্যা করা হয়েছে এবং আসল প্রকরণের মধ্যে অনুপাত হ'ল আপনার আর ^ 2। এটি আপনার প্রতিক্রিয়াতে মূল পরিবর্তনের অনুপাত যা সেই রিগ্রেশন লাইনের ফিট করে ব্যাখ্যা করা হয়।
ভিজ্যুয়ালাইজ করতে সহায়তা করার জন্য রেগ্রেশন লাইন থেকে প্রতিটি পয়েন্টে গড়, রেগ্রেশন লাইন এবং বিভাগগুলি সহ একটি গ্রাফের জন্য এখানে কিছু আর কোড রয়েছে:
library(ggplot2)
data(faithful)
plotdata <- aggregate( eruptions ~ waiting , data = faithful, FUN = mean)
linefit1 <- lm(eruptions ~ waiting, data = plotdata)
plotdata$expected <- predict(linefit1)
plotdata$sign <- residuals(linefit1) > 0
p <- ggplot(plotdata, aes(y=eruptions, x=waiting, xend=waiting, yend=expected) )
p + geom_point(shape = 1, size = 3) +
geom_smooth(method=lm, se=FALSE) +
geom_segment(aes(y=eruptions, x=waiting, xend=waiting, yend=expected, colour = sign),
data = plotdata) +
theme(legend.position="none") +
geom_hline(yintercept = mean(plotdata$eruptions), size = 1)