data <-data.frame(x1 = rnorm(n = 100, mean = 100, sd = 15),
x2=rnorm(n = 100, mean = 65),
treatment = rep(c(0,1,2,3,4), each = 20))
balance_table(data, "treatment")
Run the code above in your browser using DataLab