Simulating a Shiny Pokemon Hunt in R