Increase speed for a loop operation 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 v1 varies from 1 to 100