Comprendre la variance des effets aléatoires dans les modèles lmer ()

16

J'ai du mal à comprendre la sortie de mon lmer()modèle. Il s'agit d'un modèle simple d'une variable de résultat (prise en charge) avec différentes interceptions d'état / effets aléatoires d'état:

mlm1 <- lmer(Support ~ (1 | State))

Les résultats de summary(mlm1)sont:

Linear mixed model fit by REML 
Formula: Support ~ (1 | State) 
   AIC   BIC logLik deviance REMLdev
 12088 12107  -6041    12076   12082
Random effects:
 Groups   Name        Variance  Std.Dev.
 State    (Intercept) 0.0063695 0.079809
 Residual             1.1114756 1.054265
Number of obs: 4097, groups: State, 48

Fixed effects:
            Estimate Std. Error t value
(Intercept)  0.13218    0.02159   6.123

Je suppose que la variance des interceptions d’états variables / effets aléatoires est 0.0063695 . Mais quand j'extrais le vecteur de ces effets aléatoires d'état et calcule la variance

var(ranef(mlm1)$State)

Le résultat est: 0.001800869 considérablement plus petit que la variance rapportée parsummary() .

Pour autant que je le comprenne, le modèle que j'ai spécifié peut s'écrire:

yi=α0+αs+ϵi, for i={1,2,...,4097}

αsN(0,σα2), for s={1,2,...,48}

αsσα2lmer()

nomad545
la source
lmer()σα2α^syiyis
Voici une question très similaire, avec une réponse quelque peu différente
Arne Jonas Warnke

Réponses:

11

Ceci est un anova classique à sens unique. Une réponse très courte à votre question est que la composante variance est composée de deux termes.

σ^α2=E[148s=148αs2]=148s=148α^s2+148s=148vuner(α^s)

Ainsi, le terme que vous avez calculé est le premier terme sur la droite (car les effets aléatoires ont un zéro moyen). Le deuxième terme dépend de l'utilisation de REML de ML et de la somme des erreurs standard au carré de vos effets aléatoires.

probabilitéislogique
la source
2
OK, j'ai compris! Ainsi, la somme des SE au carré des RE - 1/48 * sum((se.ranef(mlm1)$State)^2)- est 0.004557198. La variance des estimations ponctuelles des ER (obtenues, comme ci-dessus, en utilisant var(ranef(mlm1)$State)) est 0.001800869. La somme est 0.006358067, qui est la variance rapportée à l'aide summary()du lmer()modèle ci-dessus, à 4 ou 5 chiffres au moins. Merci beaucoup @probability
nomad545
2
Pour ceux qui recherchent cette réponse et le commentaire pour obtenir de l'aide, notez que nomad545 a également utilisé le armpackage R pour la se.ranef()fonction.
ndoogan
1
@probabilityislogic: Can you provide some more detail how that equation was calculated? Specifically, how was the second equality achieved? Also, shoudn't there be a hat on the alpha after the first equality?
user1357015
1
@user1357015 - one way to see this is to look at the gradient of the (marginal) log likelihood after integrating out the random effects. That is, differentiate the likelihood YNormal(1nα0,Σ) where Σ=Inσe2+σα2ZZT is the "unconditional" variance of Y. If you do this (plus using some manipulations) you get the above equality. The second equality follows because E(αs)=0 (under the model) meaning var(αs)=E(αs2)
probabilityislogic