Improving that answer (see previous commit) by actually creating a tie to test my code; return data.frame so numeric not coerced to character, control digits to see tied ranks better