নির্ভরশীল ভেরিয়েবলটি বিচ্ছিন্ন হয়ে গেলে আপনি এই জাতীয় প্লটের প্রত্যাশাটির উপস্থিতি।
প্লটের প্রতিটি পয়েন্টের কার্ভিলাইনার ট্রেস নির্ভরশীল ভেরিয়েবল y এর একটি নির্দিষ্ট মান এর সাথে মিলে যায় । প্রতিটি ক্ষেত্রে যেখানে Y = ট একটি পূর্বানুমান রয়েছে Y ; তার অবশিষ্ট - দ্বারা সংজ্ঞা - সমান ট - Y । চক্রান্ত ট - Y বনাম Y স্পষ্টত ঢাল সঙ্গে একটি লাইন - 1 । পইসন রিগ্রেশন সালে x- অক্ষ একটি লগ স্কেলে দেখানো হল: এটা লগ ইন করুন ( Y ) । বক্ররেখাগুলি এখন দ্রুত নিচে বাঁকানো হয়। যেমন কেkyy=ky^k−y^k−y^y^−1log(y^)kপরিবর্তিত হয়, এই বক্ররেখাগুলি অবিচ্ছেদ্য পরিমাণে বৃদ্ধি পায়। এগুলি ব্যাখ্যা করে অর্ধ-সমান্তরাল কার্ভগুলির একটি সেট দেয়। (এটি প্রমাণ করতে, প্লটটি নীচে স্পষ্টভাবে নির্মিত হবে, পৃথকভাবে এর মান দ্বারা পয়েন্টগুলি রঙ করবে ।)y
আমরা অনুরূপ কিন্তু স্বেচ্ছাসেবক মডেল (ছোট এলোমেলো সহগ ব্যবহার করে) এর মাধ্যমে প্রশ্নের প্লটটিকে বেশ ঘনিষ্ঠভাবে পুনরুত্পাদন করতে পারি :
# Create random data for a random model.
set.seed(17)
n <- 2^12 # Number of cases
k <- 12 # Number of variables
beta = rnorm(k, sd=0.2) # Model coefficients
x <- matrix(rnorm(n*k), ncol=k) # Independent values
y <- rpois(n, lambda=exp(-0.5 + x %*% beta + 0.1*rnorm(n)))
# Wrap the data into a data frame, create a formula, and run the model.
df <- data.frame(cbind(y,x))
s.formula <- apply(matrix(1:k, nrow=1), 1, function(i) paste("V", i+1, sep=""))
s.formula <- paste("y ~", paste(s.formula, collapse="+"))
modl <- glm(as.formula(s.formula), family=poisson, data=df)
# Construct a residual vs. prediction plot.
b <- coefficients(modl)
y.hat <- x %*% b[-1] + b[1] # *Logs* of the predicted values
y.res <- y - exp(y.hat) # Residuals
colors <- 1:(max(y)+1) # One color for each possible value of y
plot(y.hat, y.res, col=colors[y+1], main="Residuals v. Fitted")