# NOT RUN {
data(birthwt, package = "MASS")
birthwt$race <- factor(birthwt$race, labels = c("White", "African American", "Other"))
model_1 <- aov(bwt ~ race, data = birthwt)
multiple(model_1, ~ race)$df
multiple(model_1, ~ race)$fig_ci %>%
gf_labs(y = 'Race', x = 'Birth weight (g)')
multiple(model_1, ~ race)$fig_pval %>%
gf_labs(y = 'Race')
# }
Run the code above in your browser using DataLab