nlme 개체에서 임의 추출 수식

Question

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를 사용하여이 얻을 수 있지만 나는 것 또한 더 복잡한 구조 (여러 임의의 경사, 중첩 된 임의 변수 등)에 적용하기 위해 이것도 좋아하고, 그것은 additive 나 random을 포함 할 수 있습니다. 희망한다. 감사!

Answer 1

당신은

fm1$call$fixed 
# distance ~ age 
fm1$call$random 
# ~age | Subject