d <- data.frame(
condition = c(rep("a", times = 7), rep("b", times = 3)),
x = sample(0:1, size = 10, replace = TRUE),
y = sample(0:1, size = 10, replace = TRUE)
)
upsample(x = d, condition = d$condition)
Run the code above in your browser using DataLab