How to make a rock, paper, and scissors game in R