Increase speed a for loop operation with monte-carlo simulation in R

Question

I am trying to perform monte-carlo simulation on a variable of a dataframe, DF.

In R, the code is vey slow if performed repeatedly if range of v2 varies from 1 to 100