私は混合モデルで値の計算について読んでおり、R-sig FAQ、このフォーラムの他の投稿(いくつかリンクしますが、十分な評判はありません)および使用することを理解しているいくつかの他の参照混合モデルのコンテキストでの値は複雑です。R 2
しかし、最近、以下の2つの論文に出会いました。これらの方法は有望に見えますが(私には)統計学者ではないので、他の誰かが提案する方法や提案されている他の方法とどのように比較するかについての洞察が他にあるのではないかと思いました。
中川、シンイチ、ホルガー・シエルツェス。「一般化線形混合効果モデルからR2を取得するための一般的かつ簡単な方法。」Methods in Ecology and Evolution 4.2(2013):133-142。
ジョンソン、ポールCD。「Nakagawa&SchielzethのR2GLMMのランダム勾配モデルへの拡張。」生態学と進化の方法(2014)。
isメソッドは、MuMInパッケージの r.squaredGLMM関数を使用して実装することもできます。これは、メソッドの以下の説明を提供します。
混合効果モデルの場合、は2つのタイプに分類できます。限界は固定因子によって説明される分散を表し、次のように定義されます 条件付きは、固定因子とランダム因子(モデル全体)の両方によって説明される分散として解釈され、式に従って計算されます: ここで、は固定効果成分の分散、は、すべての分散成分(グループ、個人など)の、R 2 R G L M M(M )2 = σ 2 F R2RGLMM(C)2=(σ 2 F +Σ(σ 2 L))
は加法分散による分散であり、は分布固有の分散です。
私の分析では、縦断的データを見ており、モデルの固定効果によって説明される分散に主に興味があります
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