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