Simulating a ranking/draft system in R