lm
object
fixed.effects(object)
lmList
fm1 <- lmList(distance ~ age | Subject, Orthodont) fixed.effects(fm1)