New to R, would like to simulate a function 10000 times

Question

PI<-0.5825702
pJ<-1-PI
s<-simulate_game(1,2)
K<-true_RA[13]-s[1]/PI
K

elo_Rating<-function(RA_i,RA_j,k) {
PI<-(1/(1+exp((RA_j-RA_i))))  # Expected