Karışık modellerde değerlerini hesaplama hakkında okuyordum ve R-sig SSS'sini okuduktan sonra, bu forumdaki diğer yayınlar (birkaçını bağlayacağım, ancak yeterli itibarım yok) ve kullandığım diğer referansları anladım Karışık modeller bağlamında değerleri karmaşıktır.R 2
Ancak, yakın zamanda bu iki makaleye rastladım. Bu yöntemler umut verici görünse de (bana göre) bir istatistikçi değilim ve bu nedenle başkalarının önerdikleri yöntemler ve önerilen diğer yöntemlerle nasıl karşılaştırılacağı hakkında bir fikir olup olmayacağını merak ediyordum.
Nakagawa, Shinichi ve Holger Schielzeth. "Genelleştirilmiş doğrusal karma efekt modellerinden R2 elde etmek için genel ve basit bir yöntem." Ekoloji ve Evrimde Yöntemler 4.2 (2013): 133-142.
Johnson, Paul CD'si. "Nakagawa ve Schielzeth'in R2GLMM'sinin rastgele yamaç modellerine genişletilmesi." Ekoloji ve Evrim Yöntemleri (2014).
İs yöntemi, MuMIn paketindeki yöntemin aşağıdaki açıklamasını veren r.squaredGLMM işlevi kullanılarak da uygulanabilir .
Karışık efektli modeller için iki tipte kategorize edilebilir. Marjinal sabit faktörlerle açıklanan varyansı temsil eder ve şu şekilde tanımlanır: Koşullu , hem sabit hem de rastgele faktörlerle (yani tüm model) açıklanan varyans olarak yorumlanır ve denklemine göre hesaplanır. burada sabit efekt bileşenlerinin varyansıdır ve tüm varyans bileşenlerinin (grup, bireysel vb.) ,R 2
ek dispersiyona bağlı varyans ve dağılıma özgü varyanstır.
Analizimde uzunlamasına verilere bakıyorum ve öncelikle modeldeki sabit etkilerle açıklanan varyansla ilgileniyorum
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