J'ai lu sur le calcul des valeurs dans des modèles mixtes et après avoir lu la FAQ R-sig, d'autres articles sur ce forum (j'en lierais quelques-uns mais je n'ai pas assez de réputation) et plusieurs autres références je comprends que l'utilisation valeurs de dans le contexte des modèles mixtes sont compliquées.R 2
Cependant, j'ai récemment rencontré ces deux articles ci-dessous. Bien que ces méthodes semblent prometteuses (pour moi), je ne suis pas un statisticien, et en tant que tel, je me demandais si quelqu'un d'autre aurait une idée des méthodes qu'ils proposent et comment ils se compareraient aux autres méthodes qui ont été proposées.
Nakagawa, Shinichi et Holger Schielzeth. "Une méthode générale et simple pour obtenir R2 à partir de modèles linéaires à effets mixtes généralisés." Méthodes en écologie et évolution 4.2 (2013): 133-142.
Johnson, Paul CD. "Extension du R2GLMM de Nakagawa & Schielzeth à des modèles à pentes aléatoires." Méthodes en écologie et évolution (2014).
La méthode is peut également être implémentée à l'aide de la fonction r.squaredGLMM dans le package MuMIn qui donne la description suivante de la méthode.
Pour les modèles à effets mixtes, peut être classé en deux types. La marge marginale représente la variance expliquée par des facteurs fixes et est définie comme suit: conditionnelle est interprété comme la variance expliquée par des facteurs fixes et aléatoires ( par exemple le modèle entier), et est calculée selon l'équation: où est la variance des composantes à effet fixe, et est la somme de toutes les composantes de la variance (groupe, individu, etc.),R 2 R2RGLMM(c)2=(σ 2 f +∑(σ 2 l ))
σ 2 f ∑(σ 2 l )σ 2 l σ 2 dest la variance due à la dispersion additive et est la variance spécifique à la distribution.
Dans mon analyse je regarde des données longitudinales et je m'intéresse principalement à la variance expliquée par les effets fixes dans le modèle
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