r - 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