我试图从使用lme
构建的模型中提取随机结构,但我似乎无法获得除固定公式之外的任何其他结构。如,
library(nlme)
fm1 <- lme(distance ~ age, Orthodont, random = ~ age | Subject)
deparse(terms(fm1))
# "distance ~ age"
lmer
使用findbars()
:
library(lmerTest)
fm2 <- lmer(Reaction ~ Days + (Days | Subject), sleepstudy)
findbars(formula(fm2))
# [[1]]
# Days | Subject
我希望能够提取:
# ~ age | Subject
# (Days | Subject)
我可以使用regexpr
来实现这一点,但我也希望这适用于更复杂的结构(多个随机斜率,嵌套随机变量等),并且可能包括加法或随机斜率。谢谢!
答案 0 :(得分:5)
您可以通过
访问这些内容fm1$call$fixed
# distance ~ age
fm1$call$random
# ~age | Subject