m <- lmer(weight ~ Time * Diet + (1 + Time | Chick), data=ChickWeight, REML=F)