lm和lme结果的标准误差

Question

我有以下线性模型

library(nlme)
fm2 <- lme(distance ~ age + Sex, data = Orthodont, random = ~ 1)
fm2.lm <- lm(distance ~ age + Sex,data = Orthodont)

如何通过年龄和性别获得距离标准误差？

Answer 1

对于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 

Answer 2

请参阅attributes(summary(your.model))。你所追求的是summary(your.model)$coefficients（或者我的问题是错误的吗？）。只需使用[]的子集来获得您想要的内容