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 ~ raw_polynomial_code)
stats::lm(val ~ grp, data = mydf)
Run the code above in your browser using DataLab