powered by
MergeTailHistogramOneSide(q, allowed_merge)
list( qhx = h$mids, qhy = h$counts )
h
q
MergeTailHistogram