Problem Statement
Let\'s say you have the following data:
df <- data.frame(x = rep(0, 10), batch = rep(1:3,c(4,2,4