# Unbalanced -> Balanced
# T T
# |-------| |-------|
# A | A B
# |---| | |---| |
# AA AB B AA AB BA
A <- matrix(c(1, 1, 1,
1, 1, 0), 2, byrow = TRUE)
obj <- balance_hierarchy(agg_mat = A, nodes = c(1, 1))
obj$bam
Run the code above in your browser using DataLab