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)
multiple(model_1, ~race) |>
effect_plot(x = estimate, y = contrast, orientation = "y") +
xlab("Difference in birth weights (g)") +
ylab("") + geom_vline(xintercept = 0, col = bmj[2], lty = 2)
Run the code above in your browser using DataLab