Ich habe über die Berechnung von -Werten in gemischten Modellen gelesen und nach dem Lesen der R-sig-FAQ, anderer Beiträge in diesem Forum (ich würde ein paar verlinken, aber ich habe nicht genug Ruf) und einiger anderer Referenzen, die ich unter Verwendung von verstehe 2 Werte im Kontext gemischter Modelle sind kompliziert.
Ich bin jedoch kürzlich auf diese beiden Papiere gestoßen. Obwohl diese Methoden (für mich) vielversprechend sind, bin ich kein Statistiker, und als solcher habe ich mich gefragt, ob jemand anderes einen Einblick in die von ihm vorgeschlagenen Methoden hat und wie er sie mit anderen vorgeschlagenen Methoden vergleichen würde.
Nakagawa, Shinichi und Holger Schielzeth. "Eine allgemeine und einfache Methode, um R2 aus verallgemeinerten linearen Mischeffektmodellen zu erhalten." Methods in Ecology and Evolution 4.2 (2013): 133 & ndash; 142.
Johnson, Paul CD. "Erweiterung des R2GLMM von Nakagawa & Schielzeth auf Modelle mit zufälligen Steigungen." Methoden in Ökologie und Evolution (2014).
Die Methode is kann auch mit der Funktion r.squaredGLMM im MuMIn-Paket implementiert werden, die die folgende Beschreibung der Methode enthält.
Für Modelle mit gemischten Effekten kann in zwei Typen eingeteilt werden. Der Rand R 2 stellt die Varianz dar, die durch feste Faktoren erklärt wird, und ist definiert als: Bedingung wird als Varianz interpretiert, die sowohl durch feste als auch zufällige Faktoren (dh das gesamte Modell) erklärt wird, und wird gemäß der Gleichung berechnet: wobei die Varianz der festen ist, und ist die Summe aller Varianzkomponenten (Gruppe, Individuum usw.),
ist die Varianz aufgrund additiver Dispersion und ist die verteilungsspezifische Varianz.
In meiner Analyse betrachte ich longitudinale Daten und interessiere mich hauptsächlich für die Varianz, die durch die festen Effekte im Modell erklärt wird
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