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