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
la source
Réponses:
Je réponds en collant la réponse de Douglas Bates dans la liste de diffusion R-Sig-ME, le 17 décembre 2014, sur la question de savoir comment calculer une statistique pour les modèles mixtes linéaires généralisés, que je crois être une lecture obligatoire pour quiconque s'intéresse à une telle chose. Bates est l'auteur original du package pour R et co-auteur de , ainsi que co-auteur d'un livre bien connu sur les modèles mixtes , et CV bénéficiera d'avoir le texte dans une réponse, plutôt qu'un simple lien vers il.R2
lme4
nlme
la source
Après avoir parcouru la littérature, je suis tombé sur l'article suivant qui compare plusieurs méthodes différentes de calcul des valeurs pour les modèles mixtes, où les méthodes (MVP) sont équivalentes à la méthode proposée par Nakagawa et Schielzeth.R 2R2 R2
la source