df <- data.frame(
id = 1:20,
group = as.factor(sample(c("A", "B"), 20, replace = TRUE)),
body_mass = rnorm(20, mean = 65, sd = 12)
)
df$body_mass_centered <- center_variable(df$body_mass, by = df$group)
df
Run the code above in your browser using DataLab