আমি মিশ্র মডেলগুলিতে মান গণনা করা এবং আর-সিগ এফএকিউ পড়ার পরে, এই ফোরামে অন্যান্য পোস্টগুলি পড়ার পরে (আমি কয়েকটি সংযুক্ত করব তবে আমার যথেষ্ট খ্যাতি নেই) এবং আমি উল্লেখ করেছি যে আরও কয়েকটি রেফারেন্স ব্যবহার করে মিশ্র মডেলগুলির প্রসঙ্গে আর 2 টি মান জটিল।
যাইহোক, আমি সম্প্রতি নীচে এই দুটি পেপার জুড়ে এসেছি। যদিও এই পদ্ধতিগুলি প্রতিশ্রুতিবদ্ধ মনে হচ্ছে (আমার কাছে) আমি কোনও পরিসংখ্যানবিদ নই এবং যেমনটি আমি ভাবছিলাম যে তাদের প্রস্তাবিত পদ্ধতিগুলি এবং প্রস্তাবিত অন্য পদ্ধতির সাথে কীভাবে তারা তুলনা করবে সে সম্পর্কে অন্য কারও অন্তর্দৃষ্টি থাকবে কিনা।
নাকাগাওয়া, শিনিচি, এবং হোলার শিলিজেথ। "জেনারাইজড লিনিয়ার মিক্সড-ইফেক্ট মডেলগুলি থেকে আর 2 পাওয়ার জন্য একটি সাধারণ এবং সাধারণ পদ্ধতি" " বাস্তুশাস্ত্র এবং বিবর্তন পদ্ধতিসমূহ 4.2 (2013): 133-142।
জনসন, পল সিডি। "নাকাগাওয়া এবং শ্যায়েলজেথের আর 2 জিএলএমএম এলোমেলো slালু মডেলগুলিতে প্রসারিত করুন।" বাস্তুশাস্ত্র এবং বিবর্তন পদ্ধতি (2014)।
এই পদ্ধতিটি MuMIn প্যাকেজে r.squaredGLMM ফাংশন ব্যবহার করে প্রয়োগ করা যেতে পারে যা পদ্ধতির নিম্নলিখিত বিবরণ দেয়।
মিশ্র-প্রভাবগুলির মডেলগুলির জন্য, কে দুই ধরণের শ্রেণিবদ্ধ করা যেতে পারে। প্রান্তিক আর 2 স্থির কারণগুলির দ্বারা ব্যাখ্যা করা বৈকল্পিকতা উপস্থাপন করে এবং এটি সংজ্ঞায়িত করা হয়: শর্তসাপেক্ষে স্থির এবং এলোমেলো উভয় কারণ (যেমন পুরো মডেল) দ্বারা ব্যাখ্যা করা বৈকল্পিক হিসাবে ব্যাখ্যা করা হয় এবং সমীকরণ অনুসারে গণনা করা হয়: যেখানে স্থির প্রভাবের উপাদানগুলির বৈকল্পিক এবং হ'ল সমস্ত বৈকল্পিক উপাদান (গোষ্ঠী, স্বতন্ত্র ইত্যাদি) এর ,
অ্যাডিটিভ ছড়িয়ে পড়ার কারণে বৈকল্পিক এবং হল বিতরণ-নির্দিষ্ট বৈকল্পিক।
আমার বিশ্লেষণে আমি দ্রাঘিমাংশের তথ্যগুলি দেখছি এবং আমি প্রাথমিকভাবে মডেলটির স্থির প্রভাবগুলি দ্বারা ব্যাখ্যা করা বৈকল্পিকতায় আগ্রহী
library(MuMIn)
library(lme4)
fm1 <- lmer(zglobcog ~ age_c + gender_R2 + ibphdtdep + iyeareducc + apoegeno + age_c*apoegeno + (age_c | pathid), data = dat, REML = FALSE, control = lmerControl(optimizer = "Nelder_Mead"))
# Jarret Byrnes (correlation between the fitted and the observed values)
r2.corr.mer <- function(m) {
lmfit <- lm(model.response(model.frame(m)) ~ fitted(m))
summary(lmfit)$r.squared
}
r2.corr.mer(fm1)
[1] 0.8857005
# Xu 2003
1-var(residuals(fm1))/(var(model.response(model.frame(fm1))))
[1] 0.8783479
# Nakagawa & Schielzeth's (2013)
r.squaredGLMM(fm1)
R2m R2c
0.1778225 0.8099395