Update HierarchicalProportions.R