স্ট্যান্ডার্ড রিগ্রেশন পয়েন্ট এবং লাইনের মধ্যবর্তী উল্লম্ব দূরত্বকে হ্রাস করে, সুতরাং 2 ভেরিয়েবলগুলি স্যুইচ করা এখন অনুভূমিক দূরত্বকে হ্রাস করবে (একই স্ক্র্যাটারপ্লট দেওয়া হয়)। আরেকটি বিকল্প (যা বেশ কয়েকটি নাম দিয়ে যায়) হ'ল লম্ব দূরত্ব হ্রাস করা, এটি নীতি উপাদানগুলি ব্যবহার করে করা যেতে পারে।
এখানে কিছু আর কোড যা পার্থক্যগুলি দেখায়:
library(MASS)
tmp <- mvrnorm(100, c(0,0), rbind( c(1,.9),c(.9,1)) )
plot(tmp, asp=1)
fit1 <- lm(tmp[,1] ~ tmp[,2]) # horizontal residuals
segments( tmp[,1], tmp[,2], fitted(fit1),tmp[,2], col='blue' )
o <- order(tmp[,2])
lines( fitted(fit1)[o], tmp[o,2], col='blue' )
fit2 <- lm(tmp[,2] ~ tmp[,1]) # vertical residuals
segments( tmp[,1], tmp[,2], tmp[,1], fitted(fit2), col='green' )
o <- order(tmp[,1])
lines( tmp[o,1], fitted(fit2)[o], col='green' )
fit3 <- prcomp(tmp)
b <- -fit3$rotation[1,2]/fit3$rotation[2,2]
a <- fit3$center[2] - b*fit3$center[1]
abline(a,b, col='red')
segments(tmp[,1], tmp[,2], tmp[,1]-fit3$x[,2]*fit3$rotation[1,2], tmp[,2]-fit3$x[,2]*fit3$rotation[2,2], col='red')
legend('bottomright', legend=c('Horizontal','Vertical','Perpendicular'), lty=1, col=c('blue','green','red'))
বহিরাগতদের সন্ধানের জন্য আপনি কেবলমাত্র মূল উপাদানগুলির বিশ্লেষণের ফলাফলগুলি প্লট করতে পারেন।
আপনি এটি দেখতে চাইতে পারেন:
ব্ল্যান্ড এবং অল্টম্যান (1986), ক্লিনিকাল পরিমাপের দুটি পদ্ধতির মধ্যে চুক্তির মূল্যায়ন করার পরিসংখ্যানগত পদ্ধতি। ল্যানসেট, পিপি 307-310