मैं मिश्रित मॉडलों में मानों की गणना के बारे में पढ़ रहा हूं और R-sig FAQ पढ़ने के बाद, इस मंच पर अन्य पोस्ट (मैं कुछ लिंक करूंगा लेकिन मेरे पास पर्याप्त प्रतिष्ठा नहीं है) और कई अन्य संदर्भ मुझे समझ में आए मिश्रित मॉडल के संदर्भ में मान जटिल है।
हालाँकि, मैं हाल ही में इन दो पत्रों के नीचे आया हूं। हालांकि ये विधियां आशाजनक लगती हैं (मुझे) मैं एक सांख्यिकीविद् नहीं हूं, और जैसा कि मैं सोच रहा था कि क्या किसी और के पास उनके प्रस्तावित तरीकों के बारे में कोई अंतर्दृष्टि होगी और वे प्रस्तावित किए गए अन्य तरीकों की तुलना कैसे करेंगे।
नाकागावा, शिनिची, और होल्गर शेलीजेथ। "सामान्यीकृत रैखिक मिश्रित। प्रभाव मॉडल से R2 प्राप्त करने के लिए एक सामान्य और सरल विधि।" पारिस्थितिकी और विकास में विधियाँ 4.2 (2013): 133-142।
जॉनसन, पॉल सी.डी. "बेतरतीब ढलान वाले मॉडल के लिए नकागावा और शीज़ेथ के R2GLMM का विस्तार।" पारिस्थितिकी और विकास के तरीके (2014)।
इस विधि को म्यूनि पैकेज में r.squaredGLMM फ़ंक्शन का उपयोग करके भी लागू किया जा सकता है जो विधि का निम्नलिखित विवरण देता है।
मिश्रित-प्रभाव वाले मॉडल के लिए, को दो प्रकारों में वर्गीकृत किया जा सकता है। सीमांत निश्चित कारकों द्वारा बताए गए विचरण का प्रतिनिधित्व करता है, और इसे इस रूप में परिभाषित किया जाता है: सशर्त को विचलन के रूप में व्याख्या की जाती है, जो दोनों निश्चित और यादृच्छिक कारकों (अर्थात संपूर्ण मॉडल) द्वारा समझाया गया है, और समीकरण के अनुसार गणना की जाती है: जहां निश्चित प्रभाव घटकों, और का विचरण है। सभी प्रसरण घटकों (समूह, व्यक्ति आदि) का ,आर 2 आर2आरजीएलएमएम(ग)2=(σ 2 च +Σ(σ 2 एल ))
परिवर्ती फैलाव के कारण विचरण है और d_d ^ 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