set.seed(111)
mydf <- data.frame(
grp = rep(c("a", "b", "c", "d"), each = 2000),
val = c(
rnorm(200, 2, 1),
rnorm(200, 5, 1),
rnorm(200, 7.5, 1),
rnorm(200, 15, 1)
)
) |>
set_contrasts(grp ~ cumulative_split_code |
c("a-rest", "ab-rest", "abc-rest"))
lm(val ~ grp, data = mydf)
Run the code above in your browser using DataLab