`tidy_model` not equal to `expected_tidy_model`.
Component "groups": Component 1: Component 2: Component 2: Component 2: Length mismatch: comparison on first 4 components
Component "groups": Component 1: Component 2: Component 3: Component 2: Length mismatch: comparison on first 4 components

model <- glm(counts ~ outcome + treatment, data = d.AD, family = poisson())
"Cont", "Cont", "Cont", "Cont", "Cont", "Cont", "Cont", "Cont", "Cont",
"Cont", "Cont", "Cont", "Cont", "Cont", "Cont", "Cont", "Cont", "CBT",
"CBT", "CBT", "CBT", "CBT", "CBT", "CBT", "CBT", "CBT", "CBT", "CBT",
model <- glm(Postwt ~ Prewt + Treat + offset(Prewt), data = anorexia)
model <- glm(lot1 ~ log(u), data = clotting, family = Gamma)
model <- glm(lot2 ~ log(u) + log(u^2), data = clotting, family = Gamma)
model <- glm(admit ~ gre + gpa + rank, data = admission, family = binomial())
glm_D93 <- glm(counts ~ outcome + treatment, family = poisson(), data = d_AD)
glm_D93a <- update(glm_D93, ~ treatment * outcome)
model <- anova(glm_D93, glm_D93a, test = "Rao")