手动计算线性混合模型的随机效应预测


10

我试图手工从线性混合模型中计算随机效应预测,并使用伍德在广义加性模型中提供的表示法:R的简介(pdf的pg 294 / pg 307),我对每个参数的含义感到困惑代表。

以下是伍德的摘要。

定义线性混合模型

Y=Xβ+Zb+ϵ

其中b N(0,ψ),和ε N(0,σ 2ψϵσ2

如果b和y是具有正态分布的随机变量

[by]N[[0Xβ],[ψΣbyΣybΣθσ2]]

可再生能源的预测是通过

E[by]=ΣbyΣyy1(yxβ)=ΣbyΣθ1(yxβ)/σ2=ψzTΣθ1(yxβ)/σ2

其中Σθ=ZψZT/σ2+In

使用来自lme4R包的随机拦截模型示例,我得到输出

library(lme4)
m = lmer(angle ~ temp + (1 | replicate), data=cake)
summary(m)

% Linear mixed model fit by REML ['lmerMod']
% Formula: angle ~ temp + (1 | replicate)
%    Data: cake
% 
% REML criterion at convergence: 1671.7
% 
% Scaled residuals: 
%      Min       1Q   Median       3Q      Max 
% -2.83605 -0.56741 -0.02306  0.54519  2.95841 
% 
% Random effects:
%  Groups    Name        Variance Std.Dev.
%  replicate (Intercept) 39.19    6.260   
%  Residual              23.51    4.849   
% Number of obs: 270, groups:  replicate, 15
% 
% Fixed effects:
%             Estimate Std. Error t value
% (Intercept)  0.51587    3.82650   0.135
% temp         0.15803    0.01728   9.146
% 
% Correlation of Fixed Effects:
%      (Intr)
% temp -0.903

ψ(yXβ)cake$angle - predict(m, re.form=NA)sigma

th = 23.51
zt = getME(m, "Zt") 
res = cake$angle - predict(m, re.form=NA)
sig = sum(res^2) / (length(res)-1)

将它们相乘得到

th * zt %*% res / sig
         [,1]
1  103.524878
2   94.532914
3   33.934892
4    8.131864
---

与之相比这是不正确的

> ranef(m)
$replicate
   (Intercept)
1   14.2365633
2   13.0000038
3    4.6666680
4    1.1182799
---

为什么?

Answers:


9

两个问题(我承认我花了40分钟才能发现第二个问题):

  1. σ223.51

    sig <- 23.51

    ψ39.19

    psi <- 39.19
  2. 的残差不是通过获得,cake$angle - predict(m, re.form=NA)而是通过获得residuals(m)

把它放在一起:

> psi/sig * zt %*% residuals(m)
15 x 1 Matrix of class "dgeMatrix"
         [,1]
1  14.2388572
2  13.0020985
3   4.6674200
4   1.1184601
5   0.2581062
6  -3.2908537
7  -4.6351567
8  -4.5813846
9  -4.6351567
10 -3.1833095
11 -2.1616392
12 -1.1399689
13 -0.2258429
14 -4.0974355
15 -5.3341942

这类似于ranef(m)

我真的不了解什么predict


ϵ^PYP=V1V1X(XV1X)1XV1

ϵ^=σ2PY
b^=ψZtPY.

b^=ψ/σ2Ztϵ^


1
yxβplot(residuals(m), cake$angle-predict(m, re.form=NULL)) ; plot(residuals(m), cake$angle-predict(m, re.form=NA))

1
使用固定的效果的方式,与E的第三个版本并[b | Y]以上: z = getME(m, "Z") ; big_sig = solve(((z * psi) %*% zt ) / sig + diag(270)) ; psi/sig * zt %*% big_sig %*% (cake$angle-predict(m, re.form=NA))。感谢您指出正确的项目。
user2957945 '16

ΣbyΣyy

ΣybψZ

猫王,对此我又有一点想法(我知道我很慢)。我认为使用这样的残差并不真正明智,因为它使用RE级别的预测值(以及残差)进行计算,因此我们在等式的两边都使用它。(因此,即使这些是我们正在尝试预测的术语,它也会使用RE预测(E [b | y])进行残差预测)
user2957945 2016年
By using our site, you acknowledge that you have read and understand our Cookie Policy and Privacy Policy.
Licensed under cc by-sa 3.0 with attribution required.