str(ChickWeight$Diet)
table(ChickWeight$Diet)

ols <- lm(weight ~ Time + Diet,
  data = ChickWeight)
summary(ols)

ChickWeight$Diet <- relevel(ChickWeight$Diet,
  ref = 4)

olsRelevel <- lm(weight ~ Time + Diet,
  data = ChickWeight)
summary(olsRelevel)