Извлечение случайных эффектов из сводки nlme

Question

Я могу извлечь фиксированные эффекты из сводки nlme, используя summary(fm1). Но изо всех сил, как получить Random effects: порцию.

fm1 <- lme(distance ~ age, Orthodont, random = ~ age | Subject)
summary(fm1)
Linear mixed-effects model fit by REML
 Data: Orthodont 
       AIC      BIC    logLik
  454.6367 470.6173 -221.3183

Random effects:
 Formula: ~age | Subject
 Structure: General positive-definite, Log-Cholesky parametrization
            StdDev    Corr  
(Intercept) 2.3270340 (Intr)
age         0.2264278 -0.609
Residual    1.3100397       

Fixed effects: distance ~ age 
                Value Std.Error DF   t-value p-value
(Intercept) 16.761111 0.7752460 80 21.620377       0
age          0.660185 0.0712533 80  9.265333       0
 Correlation: 
    (Intr)
age -0.848

Standardized Within-Group Residuals:
         Min           Q1          Med           Q3          Max 
-3.223106086 -0.493761144  0.007316631  0.472151121  3.916033210 

Number of Observations: 108
Number of Groups: 27 

Любая помощь будет высоко оценена. Спасибо

Answer 1

Используйте ranef(fm1) для извлечения по каждому предмету.

Обновлено, чтобы дать код для извлечения из сводной таблицы:

>VarCorr(fm1)
Subject = pdLogChol(age) 
            Variance   StdDev    Corr  
(Intercept) 5.41508758 2.3270341 (Intr)
age         0.05126955 0.2264278 -0.609
Residual    1.71620400 1.3100397  

> temp <- VarCorr(fm1)
> temp[,2]
(Intercept)         age    Residual 
"2.3270341" "0.2264278" "1.3100397" 

> temp[1,2]
[1] "2.3270341"