Comprensione della varianza degli effetti casuali nei modelli lmer ()


16

Ho difficoltà a comprendere l'output del mio lmer()modello. È un semplice modello di una variabile di risultato (supporto) con intercettazioni di stato / effetti casuali di stato variabili:

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

I risultati di summary(mlm1)sono:

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

Immagino che la varianza delle intercettazioni statali variabili / effetti casuali sia 0.0063695 . Ma quando estraggo il vettore di questi effetti casuali stato e calcolo la varianza

var(ranef(mlm1)$State)

Il risultato è: 0.001800869 considerevolmente più piccolo della varianza riportata da summary().

Per quanto ho capito, il modello che ho specificato può essere scritto:

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

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

Se questo è corretto, la varianza degli effetti casuali ( ) dovrebbe essere σ 2 α . Eppure questi non sono effettivamente equivalenti nella mia forma.αsσα2lmer()


Hai qualche conoscenza sul modo in cui i parametri sono stimati lmer()? Sembra che si postulato che è stimato dalla varianza empirica degli effetti casuali stima alfa s . La descrizione del modello non è chiaro (perharps y io dovrei essere y i s ). È un design equilibrato? σα2α^syiyis
Stéphane Laurent,

Ecco una domanda molto simile, con una risposta in qualche modo diversa
Arne Jonas Warnke l'

Risposte:


11

Questo è un classico anova a senso unico. Una risposta molto breve alla tua domanda è che il componente varianza è composto da due termini.

σ^α2=E[148ΣS=148αS2]=148ΣS=148α^S2+148ΣS=148vun'r(α^S)

Quindi il termine che hai calcolato è il primo termine di rhs (poiché gli effetti casuali hanno zero medio). Il secondo termine dipende dall'utilizzo del REML di ML e dalla somma degli errori quadrati standard dei tuoi effetti casuali.


2
Ok capito! Quindi, la somma dei SE quadrati delle RE - 1/48 * sum((se.ranef(mlm1)$State)^2)- è 0.004557198. La varianza delle stime puntuali delle RE (ottenute, come sopra, usando var(ranef(mlm1)$State)) è 0.001800869. La somma è 0.006358067, che è la varianza riportata utilizzando summary()sul lmer()modello sopra, almeno 4 o 5 cifre. Mille grazie @probability
nomad545

2
Per coloro che cercano questa risposta e il commento di aiuto, nota che nomad545 ha anche fatto uso del armpacchetto R per la se.ranef()funzione.
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
Utilizzando il nostro sito, riconosci di aver letto e compreso le nostre Informativa sui cookie e Informativa sulla privacy.
Licensed under cc by-sa 3.0 with attribution required.