У меня есть следующие линейные модели
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
(или я неправильно понял ваш вопрос?). просто используйте подмножество с []
, чтобы получить то, что вы хотите