我有以下线性模型
library(nlme)
fm2 <- lme(distance ~ age + Sex, data = Orthodont, random = ~ 1)
fm2.lm <- lm(distance ~ age + Sex,data = Orthodont)
如何获得年龄和性别距离的标准误差?
我有以下线性模型
library(nlme)
fm2 <- lme(distance ~ age + Sex, data = Orthodont, random = ~ 1)
fm2.lm <- lm(distance ~ age + Sex,data = Orthodont)
如何获得年龄和性别距离的标准误差?
对于fm2
(线性混合模型),你可以做
sqrt(diag(summary(fm2)$varFix))
#(Intercept) age SexFemale
# 0.83392247 0.06160592 0.76141685
对于fm2.lm
(线性模型),你可以做
summary(fm2.lm)$coefficients[, "Std. Error"]
#(Intercept) age SexFemale
# 1.11220946 0.09775895 0.44488623
见attributes(summary(your.model))
。你所追求的是summary(your.model)$coefficients
(或者我把你的问题弄错了吗?)。只需使用子集[]
来获得你想要的