data(x100)
b <- block(x100, groups = "g", id.vars = "id", block.vars = c("b1", "b2"))
a <- assignment(b)
axb <- assg2xBalance(a, x100, id.var = "id", bal.vars = c("b1", "b2"))
axb
# axb is a list with 4 elements (one for each of 3 groups, plus one for 'Overall')
Run the code above in your browser using DataLab