df <- sim_design(between = list(pet = c("cat", "dog", "ferret")),
mu = c(2, 4, 9), empirical = TRUE, plot = FALSE)
df$pet <- contr_code_difference(df$pet)
lm(y ~ pet, df) %>% broom::tidy()
Run the code above in your browser using DataLab