minor tweak to maximumShiftCredibility.R