替换 R 中的 lmer 系数

Question

从下面的post，

Replace lm coefficients in [r]

我也对更改装有 lmer 的混合模型的系数感兴趣。例如在以下形式的模型中：

mod <- lmer(y ~ x1 + x2 + x3 + (1|class/subjects), data=data)

如何将 x1 和 x2 的系数更改为另一个数字（0 或 0.1 或 1 等）。

Answer 1

我没有看到这样做的正当理由，你可能会遇到一些强大的龙，但这很容易做到。

library(lme4)
fm1 <- lmer(Reaction ~ Days + (Days | Subject), sleepstudy)
summary(fm1)$coef
#             Estimate Std. Error   t value
#(Intercept) 251.40510   6.823773 36.842535
#Days         10.46729   1.545958  6.770744

fm1@beta[names(fixef(fm1)) == "Days"] <- 0
summary(fm1)$coef
#            Estimate Std. Error  t value
#(Intercept) 251.4051   6.823773 36.84253
#Days          0.0000   1.545958  0.00000

替换 R 中的 lmer 系数

Replace lmer coefficients in R

r

lme4

mixed-models