This unexported helper function takes an input number for an observed difference and cuts it into a categorical description (e.g., "increase", "decrease", or "stable") of the change.
cutter(x, threshold = 1)
Character vector of length 1 with the categorical description of difference
Vector of length 1 with scaled difference to be categorized
Limit used to define the categorical differences; default is 1