lmList(formula, data, cluster)
Ovary.lmList <- lmList(follicles ~ sin(2 * pi * Time) +
cos(2 * pi * Time),
data = Ovary, cluster = ~ Mare)
Ovary.lmList
# Returns the following:
$"1":
Call:
lm(formula = formula, data = dat)
Coefficients:
(Intercept) sin(2 * pi * Time) cos(2 * pi * Time)
15.71444 -0.7805058 -1.81328
Degrees of freedom: 29 total; 26 residual
Residual standard error: 2.853338
. . .
$"11":
Call:
lm(formula = formula, data = dat)
Coefficients:
(Intercept) sin(2 * pi * Time) cos(2 * pi * Time)
9.451102 -1.269141 -1.787266
Degrees of freedom: 27 total; 24 residual
Residual standard error: 2.261535