Update competition.r

Correct a typo in the ApplyToRow function.