Thompson Sampling - Thompson Sampling in R - Step 1