set.seed(111)
mydf <- data.frame(
grp = rep(c("a", "b", "c", "d"), each = 400),
val = c(
rnorm(400, 2, .05),
rnorm(400, 4, .05),
rnorm(400, 12, .05),
rnorm(400, 20, .05)
)
) |>
set_contrasts(grp ~ cumulative_split_code |
c("a-rest", "ab-rest", "abc-rest"))
# Coefficients: ~ 9.5, -10, -13, -14
lm(val ~ grp, data = mydf)
Run the code above in your browser using DataLab