New in R and trying to use while for Elo_Rating question

Question

#RA(new)=RA(old)-KP(A) # rating after losing the game #RA(new)=RA(old)-k1/(1+exp(RB-RA)) #rating after winning the game

simulate_Elo<-function(RA_