Compreendendo a variação dos efeitos aleatórios nos modelos lmer ()

16

Estou tendo problemas para entender a saída do meu lmer()modelo. É um modelo simples de uma variável de resultado (Suporte) com interceptações de estado variáveis ​​/ efeitos aleatórios de estado:

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

Os resultados de summary(mlm1)são:

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

Entendo que a variação do estado variável intercepta / efeitos aleatórios é 0.0063695. Mas quando eu extraio o vetor desses efeitos aleatórios do estado e calculo a variação

var(ranef(mlm1)$State)

O resultado é 0.001800869:, consideravelmente menor que a variação reportada por summary().

Tanto quanto eu o entendo, o modelo que eu especifiquei pode ser escrito:

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

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

Se isso estiver correto, a variação dos efeitos aleatórios ( ) deve ser σ 2 α . No entanto, estes não são realmente equivalentes no meu ajuste.αsσα2lmer()

nomad545
fonte
Você tem algum conhecimento sobre como os parâmetros são estimados lmer()? Parece que você postular que é estimado pela variação empírica dos efeitos aleatórios estimados alfa s . A descrição do seu modelo não está clara (perharps y i deve ser y i s ). É um design equilibrado? σα2α^syiyis
Stéphane Laurent
Aqui é uma questão muito semelhante, com uma resposta de alguma forma diferente
Arne Jonas Warnke

Respostas:

11

Esta é uma anova de sentido único clássica. Uma resposta muito curta para sua pergunta é que o componente de variação é composto de dois termos.

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

Portanto, o termo que você calculou é o primeiro termo no rhs (como efeitos aleatórios têm média zero). O segundo termo depende se REML de ML é usado e a soma dos erros padrão ao quadrado dos seus efeitos aleatórios.

probabilityislogic
fonte
2
OK, entendi! Portanto, a soma dos SEs ao quadrado dos REs - 1/48 * sum((se.ranef(mlm1)$State)^2)- é 0.004557198. A variação das estimativas pontuais das ERs (obtidas, como acima, usando var(ranef(mlm1)$State)) é 0.001800869. A soma é 0.006358067, que é a variação relatada usando summary()no lmer()modelo acima, com pelo menos 4 ou 5 dígitos. Muito obrigado @probability
nomad545
2
Para aqueles que procuram esta resposta e o comentário para obter ajuda, observe que o nomad545 também fez uso do armpacote R para a se.ranef()função.
ndoogan
1
@probabilityislogic: Você pode fornecer mais detalhes de como essa equação foi calculada? Especificamente, como a segunda igualdade foi alcançada? Além disso, não deveria haver um chapéu no alfa após a primeira igualdade?
usuário1357015
1
YNormal(1nα0,Σ)Σ=Inσe2+σα2ZZTE(αs)=0var(αs)=E(αs2)