代码之家  ›  专栏  ›  技术社区  ›  89_Simple

替换R中的lmer系数

  •  0
  • 89_Simple  · 技术社区  · 6 年前

    Replace lm coefficients in [r]

    我也有兴趣改变一个混合模型与lmer的系数。例如,在以下形式的模型中:

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

    如何将x1和x2的系数改为另一个数(0或0.1或1等)。

    0 回复  |  直到 6 年前
        1
  •  1
  •   Roland    6 年前

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

    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